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A buen seguro que el saco lleno de Spectrums que portaba nues¬ 
tro Samada ir del número anterior, se quedó rápidamente vacío. Para 
los nuevos usuarios, nuestro más caluroso recibimiento, y para los 
demás, seguro que tampoco se olvidó de ellos Santaclair y les trajo 
algún periférico. 

Y como hablamos de periféricos, nada mejor que empezar el año 
echando una miradita al Opus, la unidad de disco que se hiciera fa¬ 
mosa en Inglaterra, ahora comercializada en España. 

En el capitulo de software, dos son los programas más significati¬ 
vos con los que podrá presumir de realizar el CAD/CAM con su 
Spectrum (es decir, diseño gráfico por ordenador) y si usted es profe¬ 
sor. modernizarse en el tratamiento de evaluaciones. 

Los aficionados a los juegos verán una pequeña reducción en el 
número de programas, que se compensa con la calidad de los mis¬ 
mos, y que fue necesario para dar cabida a otros temas que se nos 
pedían. En este sentido, esperamos saciar la curiosidad de quienes 
nos pedían que explicásemos cómo hacíamos las pantallas. 

Feliz año nuevo. 


4 OPUS, O LA RAPIDEZ DE LOS FLOPPYS. Analiza¬ 
mos la primera unidad de discos disponible para el Spec¬ 
trum. 

8 DISEÑO ASISTIDO POR... SPECTRUM. Un progra¬ 
ma en BASIC permite el diseño gráfico. 

18 64 CARACTERES POR LINEA. Una corta rutina en 
código máquina cambia completamente el aspecto de su 
pantalla, 

26 JUEGO DE LA VIDA. BASIC comentado a fondo me¬ 
diante este popular juego. 

30 DESCUBRIMIENTO DE UN NUEVO LENGUAJE: 
PASCAL (2). Segunda parte del lenguaje que hace furor 
en Telecomunicaciones. 

35 ASI HACEMOS LAS PORTADAS. Hablamos con Víc¬ 
tor Ruiz sobre cómo realiza las portadas de TODOSPEC- 
TRUM, que tanto han llamado la atención de los lecto¬ 
res. 
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Desde el pasado mes de junio. más de cien unidades han 
sido comercializadas por la firma Silog. Acostumbrados a 
otros periféricos y al mismo Spectrum, su precio puede 
parecer ligeramente elevado. Pero la relación 
precio-prestaciones lo hacen más que aconsejable. Con 
ellos se cierra la oferta de periféricos de almacenamiento 
de datos: cintas. cartuchos microdrive o wafadrive y discos. 
Toda una panoplia de ofertas diferentes en calidad y 
precio. 


D el mismo color negro que el 
Spectrum, la unidad de dis- 
__ eos Opus y el interface es- 
tán preparados para una 
cómoda y fácil conexión, 
sin desentonar con su ordenador. 
Las dimensiones del interface (14 x 


9,5 x 2,5 cm.) imposibilitan la en¬ 
trada de comente, previsto por la 
nueva entrada vía ínter face, pero 
no así la conexión MIC, de difícil o 
imposible acceso con el interface 
conectado (aunque se trabaje con 
disco, siempre puede ser interesan¬ 


te grabar datos en un cassette). Si 
piensa en el interfáce 1 como sepa¬ 
rador, mejor olvídelo: no son com¬ 
patibles. El resto de las conexiones 
no se ven afectadas, quedando 
abierto un nuevo port de expan¬ 
sión en la parte posterior, para la 
incorporación de nuevos periféricos. 

El interface puede controlar dis¬ 
cos de 40 a 80 sectores, densidad 
normal o doble. En otras palabras, 
se puede disponer de discos con 
capacidades que oscilan entre las 
100 y 400 Kbytes en sus distintas 
configuraciones. Por el momento, 
la firma Silog sólo comercializa los 
de 40 pistas-100 Kbytes, objeto de 
nuestro análisis. Teniendo en 
cuenta que se pueden conectar si- 







multáneamente hasta un máximo 
de cuatro unidades, esto arroja !a 
respetable cifra de 1.600 Kbytes o 
1,6 Megabytes de memoria externa. 

Un amplio cable de conexión 
con ei ínter face permite trabajar 
cómodamente, a lo que se unen las 
pequeñas dimensiones de la uni¬ 
dad de discos (15 x 23 x 4,5 cm.) 
para lo que viene siendo normal. 
Pero no es este su mayor atractivo. 
Al margen de la capacidad antes 
descrita, está la posibilidad de traba¬ 
jar con ficheros de datos aleatorios. 
Una simple comparación entre los 
distintos sistemas de almacenamien¬ 
to, nos da una idea de la velocidad: 
cargar el extenso programa BASIC 
de pedagogía que se incluye en este 
número, supuso los siguientes tiem¬ 
pos según e! medio empleado: 


Cassette .3’34" 

Microdrive .0*09" 

Disco Opus.0’11” 


El dato del microdrive corres¬ 
ponde al promedio de cinco lectu¬ 
ras distintas, ya que según la posi- 


nuevamente en el DOS, se teclea 
RANDOMIZE USR 15360. 

Algunos comandos son ya cono¬ 
cidos, como es el caso de FOR- 
MAT, ERASE, LOAD, SAVE, 
MOVE y CAT, de utilización con 
el microdrive. Al igual que éstos, 
los discos han de inicializarse para 
poder trabajar con ellos. RUN 
“format" CODE permite trabajar 
con discos de cuatro formatos dis¬ 
tintos: 

* Mini-floppy Format Ver 2.3* 
© 1984 Technology Research 

Ltd 

1 -40 track single sided 

2 -so track single sided 

3 -40 track double sided 

4 -80 track double sided 

Q-Quit 

Which format 

Suponiendo que elige la opción 
de 40 sectores densidad normal, 
aparecerá el siguiente mensaje: 

* 40 track single side * 

Which drive? (A, B. C, D, Me¬ 
nú) A 


Please insert disk in drive A 
When you are ready, type 
F for format 
V for verify 
Q for quit 

El comando CAT informa del 
contenido del disco. Las tres pri¬ 
meras líneas indican el nombre del 
disco, el número de archivos exis¬ 
tentes y borrados, respectivamen¬ 
te. Las siguientes líneas muestran 
los nombres de los programas y 
algo muy importante, si están gra¬ 
bados en BASIC < B> o en código 
máquina <C>. El número que le 
acompaña indica la longitud del 
programa en sectores (1 Kbyte = 4 
sectores). La última línea informa 
de la memoria disponible. 

Title: Utility 
3 File<s) 

0 Del. File(s> 

A: format <C> 10 :copy<B>2 
A: copy <C> 14 
364 Free 

SAVE permite la grabación de 
programas, del mismo modo que 


o la rapidez 
delfloppy 

ción de la cinta los tiempos de ac¬ 
ceso pueden diferir significativa¬ 
mente. La velocidad es, por tanto, 
similar al microdrive, si tenemos 
en cuenta su mayor capacidad. 

Para ver las restantes caracterís¬ 
ticas, hemos de analizar los nuevos 
comandos que incorpora el inter¬ 
face. Conectado al Spectrum, apa¬ 
rece el mensaje de la versión de in¬ 
terface y el nombre de Technology 
Research en la parte superior. En 
la parte inferior aparece el símbolo 
"A > ”, que indica que se está en ei 
DOS {Disk Operating System o 
Sistema Operativo por Disco), y 
no en el BASIC de Sinclair. Para 
volver al BASIC se presiona RE- 
TURN y ENTER. Para entrar 

















estamos acostumbrados con cas- 
sel te o microdrive. 

SAVE “archivo” 

SAVE “archivo” CODE 36000 
Del mismo modo, LOAD reali¬ 
za la carga del programa. Una vez 
finalizada esta, se pasa automáti¬ 
camente al BASIC, listándose el 
programa. 

LOAD “archivo” 

LOAD “archivo” CODE 36000 

Comando que se puede sustituir 
por RUN para la carga y ejecución 
automática del programa (aunque 
no estuviese grabado con (a ins¬ 
trucción SAVE ““L1NE XXXX). 

RUN “archivo” 

RUN “archivo”CODE 

También es posible utilizar la 
instrucción MERGE para combi¬ 
nar dos o más programas en BA¬ 
SIC. 

MERGE “anterior” 

MERGE “b:nuevo: 
en este segundo caso se cargaría el 
programa “nuevo” de la segunda 
unidad de discos conectada, en su 
caso, combinándose con el resi¬ 
dente en memoria. 

La eliminación de ficheros es 
igualmente realizada por ERASE, 
del mismo modo que si se tratase 
del microdrive. 

ERASE “archivo” 

ERASE “archivo” CODE 
ERASE “archivo” DATA 

pero con una notable diferencia; 
los “huecos” resultado de eliminar 
ficheros pueden eliminarse por 
efecto de una nueva instrucción. 
MOVE (no confundir con la utili¬ 


zación que de este comando hace 
el interface 1) reorganiza la infor¬ 
mación para evitar la dispersión de 
datos típicos del microdrive, cau¬ 
sante de los incrementos en tiempos 
de acceso conforme se va utilizando. 

MOVE 

Otro comando que trabaja de 
forma diferente a lo que estamos 
habituados es NEW. En esta oca¬ 
sión no se elimina nada de la me¬ 
moria. Sirve para cambiar la deno¬ 
minación de un archivo o progra¬ 
ma (recuerde que en el microdrive 
esto supone cargar el programa, 
grabarlo con el nuevo nombre y 
eliminar el nombre antiguo, sin 
perjuicio de la imposibilidad de 
reorganizar ía cinta, salvo que se 
vuelva a formatear). 

NEW “nuevo nombre”, “nombre 
anterior” 

NEW “nuevo nombre”, “nombre 
anterior” CODE 

NEW "nuevo nombre”, “nombre 
anterior” DATA 

Y finalmente nos encontramos 
con los comandos PEEK y POKE. 
Potentes herramientas que nos fa¬ 
cilitarán el acceso aleatorio al dis¬ 
co. PEEK lee los sectores del disco 
(un sector por acceso), colocando 
la información en un buffer RAM. 

PEEK “nombre archivo” direc¬ 
ción buffer. número registro 
PEEK “TEST” 30023,1 

Lee el primer sector de TEST y 

queda en buffer RAM con direc¬ 
ción 30023. 

POKE realiza la operación in¬ 
versa, es decir, graba la informa¬ 
ción por sectores: 


POKE “nombre archivo” direc¬ 
ción buffer , número registro 
POKE “TEST”, 30023,1 
La información contenida en la 
dirección 30023 se graba en el 
primer sector del archivo TEST. 

Se puede, por tanto, trabajar con 
archivos aleatorios y olvidarse de 
los secuenciales (única posibilidad 
con la cinta y microdrive), aunque 
la elección de un tipo u otro de ar¬ 
chivo dependerá de las aplicacio¬ 
nes a realizar. Sin embargo, el ma¬ 
nejo de archivos por este sistema 
dista mucho de ser sencillo. Para 
facilitar esta labor, las instruccio¬ 
nes OPEN#, GLOSE#, PRINT#, 
INPUT#, acuden en ayuda del 
programador, por el momento no 
disponibles para esta unidad, aun¬ 
que según pudimos informamos, 
Ja firma que lo distribuye está 
construyendo un EPRON al efecto. 

Si le parece interesante y decide 
reforzar su Speetrum, cuando pre¬ 
gunte precios no olvide especificar 
Ínter face y unidad de discos. En el 
caso del Opus, la unidad son 
55.200 pesetas, más las 29.850 pe¬ 
setas de 1 interface. 

Una característica importante es 
la posibilidad de utilizar los co¬ 
mandos DOS desde el BASIC e in¬ 
corporarlos asi, a nuestros progra¬ 
mas, mediante el uso de la instruc¬ 
ción RANDOMIZE: 

RANDOM1ZEUSR 15363 : REM 
: (Comando del DOS) 

así por ejemplo, si se desea cargar y 
ejecutar un programa llamado 
“disco” la instrucción LOAD 
“disco” pasaría a ser: 

RANDOMIZE USR 1536: REM: 
RUN “disco” 

únicamente ha de tener en cuenta 
que la instrucción que contenga un 
comando DOS ha de ser la última, 
dentro de una línea. 

Pero no sólo se puede acceder 
desde el BASIC. También desde 
código máquina es posible. Para 
ello se ha de alterar la variable del 
sistema CHADD. Veámoslo con 
un ejemplo: 

dirección código 

40000 " 234 REM 

40001 58 : 

40002 239 LOAD 




Led de referencia 
y protector 


Entrada 

alimentación. 


.Conexión al 
controlador. 


Cabeza lectura y 
grabación. 


Circuitería control 
motores y cabeza 


Mecanismo desplazamiento I 
longitudinal de La cabeza 
bajo control de motor 
paso a paso. 


Led de protección 
de disco. 


Motor movimiento 
rotación del disco 


40003 

34 

14 

40008 

112 

P 

40004 

101 

e 

40009 

108 

1 

40005 

106 

j 

40010 

111 

0 

40006 

101 

e 

40011 

34 

ii 

40007 

109 

m 

40012 

13 

ENTER 
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E K Escritura a 
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utilizando la dirección 40000, 
puede escribirse el código máquina 
como sigue: 

LD HL,(CHADD) Siendo 
CHADD 23645 

LD (TEMP),HL Se guarda en 
una posición 

LD {CHADD),40000 Se direc- 
ciona CHAAD a la 40000 
CALL 15363 Llamada al 
DOS 

LD HL,(TEMP) 

LD (CHADD),HL Se devuel¬ 
ve su contenido inicial 

RET 

Finalmente, junto con el interfa¬ 
ce se acompaña un disco con los 
utility programs o programas de 
utilidad. En él hay cuatro progra¬ 
mas en BASIC que llama a otros 
cuatro programas en código má¬ 
quina: BACKUP, COPY. FOR- 
MAT, SCOPY. 

Format permite el formateo de 
discos, como ya vimos. Diversas 
modalidades de copias, tanto par¬ 
ciales de programas o archivos, 
como totales de disco a disco, se 
realizan por los tres programas res¬ 
tantes. 



















SPECTRUM 


P ara muchos usuarios, las ma¬ 
temáticas son fascinantes, 

_primero, por la facilidad con 

HHque se resuelven problemas 
bastante complejos y en se¬ 
gundo lugar como herramienta 
que posee fuerza propia. Siempre y 
cuando no se alteren las reglas del 
juego se podrá conseguir el resulta¬ 


do más inesperado de un problema 
que parezca sencillo. (Como por 
ejemplo, los resultados de la mecá¬ 
nica cuántica y la relatividad, don¬ 
de las respuestas obtenidas a través 
del uso de las matemáticas se con¬ 
tradicen con el sentido común.) 

Hasta la llegada del micro, esta 
fascinación por las matemáticas 


era algo pasajero. Con demasiada 
frecuencia resolver un problema 
con papel y lápiz se hacía demasia¬ 
do difícil como para poder conti¬ 
nuar. Era como estar luchando 
contra un pulpo: te librabas de un 
brazo para caer en el siguiente. 

¿Pero, cómo nos ayudan los or¬ 
denadores? Hasta la computadora 








más barata está hecha para hacer 
operaciones matemáticas a unas 
velocidades muy superiores de lo 
que podemos imaginar. Miles de 
cálculos iterativos son llevados a 
cabo por una simple línea de pro¬ 
gramación en BASIC. Los progra¬ 
mas no sólo se hacen para efectuar 
dichos cálculos, sino que también 


pueden tomar decisiones “lógicas” 
acerca de qué método hay que se¬ 
guir para realizar dicha operación. 

En ninguna parte se notan estas 
ventajas tanto como en el campo 
de los gráficos generados por orde¬ 
nador. De todos modos, las de¬ 
mandas en cuanto a la potencia de 
la computadora, tanto en capaci¬ 
dad de almacenamiento como en 
velocidad, son enormes y por esto 
los programas de gráficos diseña¬ 
dos por computadora (CAD) han 
sido probados en ordenadores muy 
avanzados, normalmente máqui¬ 
nas con procesadores de 32 y 48 
bits, los cuales al trabajar en para¬ 
lelo los hacen ultrarrápidos. Estos 
programas en código máquina son 
asistidos por hardware especial 
para el rápido tratamiento de los 
números y procesamiento de la 
pantalla. 

Por lo tanto no es de extrañar la 
escasez de programas de gráficos 
para ordenadores cuya configura¬ 
ción sea de 8 bits que son la in¬ 
mensa mayoría de los ordenadores 
domésticos. Aunque el CAD pa¬ 
rezca estar más allá de las posibili¬ 



dades del micro, han sido diseña¬ 
dos varios programas didácticos a 
la vez que entretenidos. 


Planteamiento del proyecto 

El problema reside en la crea¬ 
ción de diversos contornos y som¬ 
bras mediante la aplicación de fun¬ 
ciones matemáticas en vez de 
“plotear” la pantalla- con puntos 
diversos. Con la elección de coor¬ 
denadas adecuadas, se podrán ha¬ 
cer girar determinadas figuras geo¬ 
métricas, trasladarlas o dibujarlas 



PROYECCION EN PERSPECTIVA 
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a escala sin la necesidad de trans¬ 
formaciones matriciales. 

La mejor forma de comprender¬ 
lo todo es a través de un programa 


que genera gráficos en 3 dimensio¬ 
nes. Para los genios matemáticos 
con experiencia en programación 
BASIC, entender el ejemplo será 
coser y cantar y para aquellos a los 
que no íes interesan tanto las ma¬ 
temáticas y que quieran teclear el 
programa y pasárselo bien tienen 
un ejemplo para que comprueben 
los bonitos gráficos que se pueden 
hacer con el Spectrum. Habiendo 
llegado a ambos extremos del 
usuario típico, el resto está hecho 
desde el punto de vista de aquellos 
que deseen aprender, utilizar y de¬ 
sarrollar el concepto principal usa¬ 


do en el programa y sus ejemplos. 
Ahora entremos en los detalles del 
programa, una vez entendido 
pruebe con algunos ejemplos ex¬ 
puestos. 


Observando en perspectiva 

La proyección en perspectiva se 
puede introducir en la rutina 520, 
que es la que calcula la perspectiva 
del suelo. 

Hay una serie de datos que se 
asumen: 

1. El origen del sistema rectan- 




10 REM objetos en perspectiva 
20 60 SUB 440: STOP 
30 PRINT AT 21,13j "v—62mm"(AT 
1 1,26; ";<=90mni" ; AT 0,13; "y"62mm" 
; AT 11,0;"x =—90mm " 


40 LET p~i,41 
50 LET d=500 
60 60 SUB 510 

70 INPUT AT 0,ü;"Interseccion 
de planos: v/h";a$ 

SO IF aí="h" THEN GO TC 660 
90 INPUT "Dist. del oby. en mm 
;zü=";z0 

100 INPUT "*Radio’ obj. en mm; 

R= "; R 

110 INPUT "Punto central obj,(m 
m) s x0=" ; xO 
120 INPUT "yO = ";yO 
130 INPUT "Num. de sec. vert.;s 
b= ”;sb 

140 INPUT "Num. lados de cada s 


ec.;sa= ";sa 

150 INPUT "Lona, inicial en gra 
d. ;b0= ";bO 

160 INPUT "Lat. inicial en grad 
.;a0= ";aO 
170 LET db=360/sb 
180 LET da=360/sa 
190 FOR b~bO TO 360+bO STEP db 


200 FOR a=aO TO 360+a0 STEP da 
210 LET x—R*CÜS (PI-/180*a) *CDS 
(PI /130* b > +x O 

220 LET v=R*S 1N <PI/180#a)+yO 
230 LET z-R*CQS <PI/L80*a)*SIN 
<PI/lB0#b)+20 

240 LET dx=R*CGS (PI/180*b>*<CQ 
S (PI/180*(a+da>>-CQS CPI/180*a> 


250 LET dy=R*(SIN (PI/180*(a+da 
))—SIN (PI/180*a>) 

260 LET dz=R*SIN <PI/180#b>*<CG 

5 CPI/180#<a+da))~C0S <PI/180#a> 

) 

270 IF x>z/5,6 THEN LET x=z/5. 

6 

280 IF <x+dx)>z/5.6 THEN LET d 
x=z/5.6—x 

290 IF y >z/8.3 THEN LET y=z/8. 
3 

300 IF (y+dy)>z/8.3 THEN LET d 
y=z/8.3-y 

310 IF x<“Z/5.ó THEN LET x=-z/ 
5.6 

320 IF (x+dx X-z/5. 6 THEN LET 
dx =-z /5.6-x 

330 IF y<“Z/9 THEN LET y=-z/9 
340 IF (y+dy)<-z/9 THEN LET dy 
=-z/9-y 

350 LET xp=x*d/z: LET yp=y*d/z 
360 PLOT xp#p+l28,yp *p+87 
370 LET dk=d/(z+dz)-d/z 
380 LET dxp=dx*d/z+x*dk: LET dy 
p-dy/2+y*dk 
390 LET e=ABS (Cz-d)/200) 

400 DRAW INK e;dxp*p,dyp#p 

410 NEXT a 

420 NEXT b 

430 GO TO 70 

440 PLOT 0,0 

450 DRAW 255,0 

460 DRAW 0,175 

470 DRAW -255,0 

480 DRAW 0,-175 

490 BüRDER 5 


■ 























































guiar de coordenadas es el ojo del 
observador. 

2. Todas las distancias se ex¬ 
presan en m {otras unidades se 
pueden especificar fácilmente, 
mientras se mantenga a lo largo del 
programa). 

3. Los milímetros son conver¬ 
tidos en pixels sólo en las líneas del 
programa donde haya PLOT y 
DRAW. 

4. El número de pixels/mm (p) 
para la ventana gráfica del Spec- 
trum en una TV de 12 pulgadas se 
asume igual a 1.41 
(255/180=1.41). Este valor nomi¬ 


nal es el que se utiliza a lo largo del 
programa. 

5. La pantalla de la TV se ten¬ 
drá que dibujar mediante la rutina 
450, y entonces habrá que medirla 
para poder teclear el valor real de 
la pantalla en mm. en la línea 50. 
Si su pantalla tiene alrededor de 12 
pulgadas entonces los valores de la 
línea 50 son los correctos, y la eje¬ 
cución del programa se podrá con¬ 
tinuar pulsando la tecla CONT. El 
centro de la pantalla está en z=0, 
y=0 y z=d=500. 

6. El objeto se puede situar en 
cualquier parte de la zona determi¬ 


nada por la pirámide que se forma 
entre la distancia entre el tamaño 
de la pantalla y la formada por los 
ojos y la pantalla <d>. Una pantalla 
grande y una distancia de la vista 
hacia ella demasiado corta, hará 
que la pirámide diverja rápida¬ 
mente. Las líneas 290 a la 360 cor¬ 
tan los objetos que van más allá de 
la pirámide de visión. 

7. La condición general que 
tiene que cumplir un punto para 
que esté entre los límites estableci¬ 
dos son: 

a) -z * w/d < = x < = z *w/d 
{donde w es la mitad de la anchura 


I 


500 RETURN 


510 FOR z=d TD d+600 STEP ICO 

520 FOR x»-90 TO 90 STEP 22.5 

530 LET xp-xtd/z 

540 LET yp™-62#d/z 

550 LET -f = I NT ( (z~d> /20Ú) 

560 PLÜT >;p*p+128,,yp*p+87 

570 LET dl;*d/(z+70)-d/z 

580 DRAW INK f¡x*dk#p.-62#dk*p 

590 PLOT ;<p*p+128,yp*p+B7 

600 LET d:-;p = 2Ú*d/z 

610 IF :< +22. 5>90 THEN LET dxp = 

0 


620 DRAW INF + : dxp*p , 0 
630 NEXT >: 

640 NEXT z 
650 RETURN 

660 INPUT "Dist. del Qbj. en mm 
;z0=";zO 


670 INPUT 

R~ "; R 
680 INPUT 
m) ; k0=" ; >; O 
690 INPUT 
700 INPUT 
— " ; g a 

710 INPUT 


"’Radi o ' ob j . en mm: 
"Punto central obj.(m 
11 y O = ” ; yO 

"Num. de secciones;sa 
"Num. lados de cada s 


ec:. ¡-fib* " ; sb 

720 INF'UT "Long. inicial en gra 
d.;bO= ";bO 

730 INF'UT "Lat. inicial en grad 
.;a0“ ";aO 
740 LET db=360/sb 
750 LET da=360/sa 
760 FOR a=aO TO 360+a0 STEP da 
770 FÜP b=bO TO 360+b0 STEP db 
780 LET x—R#'SIN (PI /18Ü*b > +;;0 


790 LET y=R*C0S (P1/18G*b> *SIN 
(PI/iB0*a)+y0 

800 LET z=R*C0S <FI/180*b)*C0S 
<PI/18Ú*a>+zO 

810 LET d¡-¡=R*(SIN <PI/1BO*(b+db 
)>-SIN <PI/180*b>> 

820 LET dy=R*SIN <F'I / 18Ú*a> * (CO 
S ÍP1/1Q0* <b+db)") —CQS <PI/Í80#b> 

> 

830 LET dz =R*COS íPI/I80*a>*<CÜ 

5 (PI/180*(b+db >)-COS <PI/180*b) 

> 

840 IF x >z/5.6 THEN LET x=z/5. 

6 

850 IF (x+dx)>z/5.6 THEN LET d 
>¡ =z / 5. 6-x 

860 IF y>z/8.3 THEN LET y=z/B. 
3 

870 IF (y+dy)>z/8.3 THEN LET d 

y=z/8.3 —y 

880 IF x<-z/5.6 THEN LET x—z/ 
5.6 

890 IF , ft +dx)<-z/5.6 THEN LET 
dx~~z/5.6-x 

900 IF y<-z/9 THEN LET y=-z/9 
910 IF (y+dyK-z/9 THEN LET dy 
=~z/9-y 

920 LET >;p=;< *d/z ¡ LET yp=y*d/z 
930 PLÜT xp*p+128„yp*p+87 
940 LET dk=d/(z+dz)—d/z 
950 LET dKp~d:;*d/z+x*dk: LET dy 
P”dy*d/z+y*dk 
960 LET e~ABS (íz-d)/200> 

970 DRAW INK es dí$p*p, dyp*p 
980 NEXT b 
990 NEXT a 
1000 SO TQ 70 



















de la pantalla en milímetros), y 
b) -z * h/d < = y < = z* h/d 
(donde h es la mitad de la altura de 
la pantalla en milímetros). 

Los valores en el programa (lí¬ 
neas 290 a 360) se corresponden a 
la pirámide de visión de d=500 
mm y la ventana gráfica del Spec- 
trum en una TV de 12 pulgadas. 

8. La condición puesta en 
práctica para cortar determinados 
gráficos es un poco complicada de¬ 
bido a que se trabaja con dx y dy, 
que son valores que incrementan 
la x e y respectivamente, utilizados 
en las instrucciones DRAW. Esta 
instrucción en el Spectrum no es 
estándar en lo que se refiere a que 
sólo determina la dirección y lon¬ 
gitud de una línea mientras que el 
punto de partida viene expresado 
por la última instrucción PLOT o 
DRAW. Teniendo que situar antes 
de cada sentencia DRAW una ins¬ 


trucción PLOT que será la que ini- 
cialice el punto de partida. 

9. La proyección en perspecti¬ 
va de un punto P(x, y, z) en la pan¬ 
talla P(xp, xy) se basa en la rela¬ 
ción existente entre triángulos 
equivalentes, Odxp y Ozx, según 
se ve en la figura 1. 

Después de una simple manipu¬ 
lación: 

xp = x*d/z(l) 

yp = y *d/z(l) 

(la proyección xp e yp son inversa¬ 
mente proporcionales a la profun¬ 
didad dez.) 

La perspectiva queda demostra¬ 
da con la rutina utilizada en el pro¬ 
grama para generar el suelo. En la 


notación matemática esta repre¬ 
senta al plano de y=H)2 mm como 
se puede ver en el diagrama de la 
proyección en perspectiva. 

Viendo el programa línea a lí¬ 
nea, tendremos lo siguiente: 

Líneas 530-540, definen el ta¬ 
maño del plano, por ejemplo, z 
(profundidad) entre 500 mm y 
1.100 mm y x (anchura) entre -90 
nlm y 90 mm. 

Lineas 550-560, son aplicacio¬ 
nes directas de las ecuaciones (1). 

Línea 580, proyecta xp e yp, ex¬ 
presado en pixels (multiplicado 
por p) y fija el origen de PLOT en 
el centro de la pantalla, (256 por 
175 pixels). 


Figura 6. r 
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Figura 5 
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Figura I. 

TRANSFORMACION DE UN PUNTO 
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proyectar cualquier tipo de marco 
de cualquier plano. Por ejemplo, el 
plano x=90 se puede formar susti¬ 
tuyendo la y por x en el siguiente 
programa: 

520 REM Plano de la pared dere- 
cha x = 90 

540 FOR y=-62 TO 62 STEP 12 
550 LET yp= 1 *d/z 
560 LET xp = 90 * d/z 


nos se pueden combinar hacia la 
esquina inferior derecha de la ha¬ 
bitación por mediación de un pro¬ 
grama con los tres ejemplos como 
subrutinas. 

Se podrá visualizar lateralmente 
una casa con tres pisos, desde el 
plano original, y =-62, añadiendo 
las líneas siguientes: 

517 REM Tres pisos 

520 FOR y = -62 TO 62 STEP 50 


Línea 590, define el factor de de¬ 
crecimiento de perspectiva dk„ a la 
vez que z se va incrementando por 
dz - 70. Esto es necesario debido a 
que se tienen que reducir los valo¬ 
res de x e y a la vez que la z aumen¬ 
ta en profundidad, dz. 

Línea 600, contiene la primera 
instrucción DRAW que dibuja 
una línea correspondiente a la 
proyección del incremento de dz, 
después de aplicar el incremento 
dk. 

Línea 610 inicializa el vector 
DRAW a 580. 

Línea 620 convierte el incre¬ 
mento de x (dx=20) a su proyec¬ 
ción, dxp. 

Línea 640 contiene la segunda 
instrucción DRAW y dibuja la 
proyección correspondiente al in¬ 
cremento dx=20. 

Las secciones del suelo se obtu¬ 
vieron a través de la aplicación di¬ 
recta de la ecuación (1) y la senten¬ 
cia PLOT. La sentencia DRAW se 
utiliza para dibujar las proyeccio¬ 
nes de tos incrementos de dz y dy, 
que son vectores ya que no sólo 
tienen un valor sino que también 
poseen una dirección en el espa¬ 
cio. En realidad no sería difícil 


600 DRAW INK f; 90 * dk * p, y * 
dk* p 


620 LET dyp = 8 * d/z 

630 IF y + 12 > 62 THEN LET 

dyp=0 

640 DRAW INK f;0, dyp *p 
650 NEXTy 
660 NEXTz 

De la misma forma, el plano z = 
1100 se puede dibujar con el pro¬ 
grama siguiente: 

520 REM Pared del fondo 

525 LET z= 1100 

530 FOR y = -62 TO 62 STEP 12 


560 LET yp = y * d/z 


590 LET dyp =12* d/z 

595 IF y+ 12 > 62 THEN LET 

dyp = 0 

600 DRAW INK f;0, dyp *p 


650 NEXT x 
660 NEXT y 

Como alternativa, los tres pla¬ 


560 LET yp = y * d/z 

600 DRAW INK f; x * dk * p, y * 
dk * p 

665 NEXT y 

La analogía se puede llevar más 
lejos, por ejemplo, dibujar un pla¬ 
no orientado hacia cualquier parte 
y en combinación con varios pla¬ 
nos, se podrían generar cajas en el 
espacio. Es obvio que el programa 
podría resultar demasiado comple¬ 
jo. 

Basado en la experiencia hasta el 
momento, la rutina que dibuja el 
plano se recomienda en los si¬ 
guientes casos: 

1. Pared o suelo único. 

2. Paredes o suelos paralelos 
múltiples. 

3. Planos paralelos simples o 
múltiples planos paralelos de los 
que exponemos un ejemplo a con¬ 
tinuación: 

520 REM techo y=+40 
530 FOR z = d TO d + 600 STEP 
100 
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540 FOR x = - 90 TO 90 STEP 
22.5 

555 LET y = 40 + 10 * SIN (x /10) 


600 DRAW 1NK f; x * dk * p, y * 
di * p 


625 LET dy = 10 * SIN ((x + 20) / 
10) - SIN (x /10)) 

628 LET dyp = dy*d/z 


635 IF y + dy > 62 THEN LET 
dyp = Q 

640 DRAW INK f; dxp * p, dyp * 
P 

Ahora veremos las coordenadas 
esféricas elegidas para crear una 
diversa variedad de objetos simé¬ 
tricos en 3D y también para ejecu¬ 
tar transformaciones simples (es¬ 
calas, rotación y traslación). Las 
rutinas se utilizan en el programa 
principal y el sistema de coordena¬ 
das se puede observar en la Figura 
2 . 

La generación de los objetos tie¬ 
ne lugar a partir de la línea 90 con 
una serie de instrucciones IN- 
PUTs. con los parámetros que dé 
el observador. Los parámetros que 
se piden en el programa son: 

— el número de secciones verti¬ 
cales, sb 

— el número de lados en cada 
sección.sa 

— la longitud de comienzo, esto 
es, la longitud de la primera sec¬ 
ción vertical, bO 

— la latitud de comienzo, es de¬ 


cir, la latitud del origen del vector 
DRAW que representa el primer 
lado del polígono, aO. 

Esto se puede comprobar en la 
figura 3, donde sb=3, sa=4, b0=Q y 
a0=45 (ios valores de aO y bO vie¬ 
nen en grados). 

La figura 3 generará 3 secciones 
verticales (aO, 120 y 240 grados) 
cada sección se representa median¬ 
te una figura cuadrada orientada 
de manera que tenga dos lados ho¬ 
rizontales y dos verticales. Si hu¬ 
biera que hacer a igual a 0, se pro¬ 
ducirán cuadrados con lados dis¬ 
puestos a 45 grados con la horizon¬ 
tal (figura 4). 

El tamaño del objeto obviamen¬ 
te viene determinado por R (en la 
línea 100) y el tamaño aparente 
utilizando la perspectiva también 
dependerá de la distancia del obje¬ 
to desde el punto de observación, 
zO (línea 90). Variar el valor de z0, 
equivale a la función de “ zoom " 
en una cámara de fotos — 
traslación en profundidad. La tras¬ 
lación en el eje x y en el y se consi¬ 
guen variando xO e yO, respectiva¬ 
mente (el centro de la pantalla se 
encuentra en x0=0 e y(M)). 

A continuación comentaremos 
la función de las líneas del progra¬ 
ma dedicando especial atención a 
la parte que hace referencia a las 
coordenadas esféricas. 

Las líneas 170-180 convierten 
un número elegido, sb y sa, en in¬ 
crementos angulares en grados, db 
y da, utilizados en los bucles FOR- 
NEXT de las líneas 190-200. 

Las líneas 210-270, convierten 
la coordenada esférica R, a y b en 
coordenadas rectangulares x e y (y 
sus incrementos dx, dy y dz), de 


forma que el objeto se pueda dibu¬ 
jar en perspectiva de la misma ma¬ 
nera que las rutinas que dibujan el 
plano. 

Las líneas 220-240, son ecuacio¬ 
nes estándar que convierten coor¬ 
denadas esféricas en coordenadas 
rectangulares y se derivan de la fi¬ 
gura 2 utilizando trigonometría. 
Observe que todos los ángulos en 
tas sentencias SIN y COS se han 
convertido a radianes (Pl/180 * 
ángulo en grados). 

Las líneas 250-270, calculan el 
incremento cartesiano (vectores) 
dx, dy y dz, correspondiente al in¬ 
cremento de latitud, da. (Esto es un 
buen ejemplo de cómo un ordena¬ 
dor personal puede hacer cálculos 
de alto nivel, aunque no sea tan rá¬ 
pido como las máquinas dedicadas 
a hacer CAD). Observe que todos 
los resultados se expresan en milí¬ 
metros. 

Las lineas 280-360, evitan que !a 
figura se corte fuera de la pirámide 
de visión y los límites se corres¬ 
ponden a d=500 mm y el tamaño 
de la «ventana» del Spectrum me¬ 
dido en una televisión con una 
pantalla de 12 pulgadas. 

La línea 370 es la ecuación es¬ 
tándar de la perspectiva (ecuación 
!) utilizada en la consiguiente sen¬ 
tencia PLOT de la línea 380. Ob¬ 
serve que los milímetros se con¬ 
vierten en pixels en la línea 380. 

La expresión en la instrucción 
380 ya se mencionó en la rutina 
que dibuja el suelo; dk representa 
el decrcmento del factor de la esca¬ 
la (d/z) cuando varía la profundi¬ 
dad por dz. La línea 390 es algo 
más complicada de lo visto hasta el 
momento. 
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Algunos ejemplos de las figuras que se pueden crear con este programa, y que pueden modificarse con una pequeña traslación (R = 
















Vamos a detenemos ün poco 
para comentar la importancia de 
dos elementos diferentes que com¬ 
binados forman la variable dxp: 

— dx * d/z es el componente de 
la perspectiva debido a un incre¬ 
mento en el vector, dx. 

— x * dk es el componente de la 
perspectiva debido al vector, dz 

De la misma forma se pueden 
explicar los componentes de la va¬ 
riable dyp. 

La línea 400 dibuja la proyec¬ 
ción en perspectiva de un vector 
en función de dx, dy y dz, medido 
en pixels. Las líneas 410 y 420 
completan el bucle FOR-NEXT 
que calcula la latitud y longitud. 
La línea 430 es una bifurcación in¬ 
condicional que manda el progra¬ 
ma a la rutina principal y pide los 
datos del siguiente objeto a dibu¬ 
jar. 

Seguido a la explicación de 
cómo son generados los objetos, 
explicaremos algunos parámetros 
y sus efectos: 

1. Selecciona el tipo de figura 
utilizando la variable sa. 

a) sa=l; dibuja un punto. 

b) sa=2; dibuja una linea. 

c) sa=3; dibuja un triángulo. 

d) sa=4; dibuja un cuadrado. 

e) sa=5; dibuja un pentágono. 


Cuando el valor de “sa” sea su¬ 
perior a 15, se encontrará dibujan¬ 
do un círculo en el espacio. 

2. Determina la orientación de 
la figura con la latitud inicial, a0, 
en grados. 

a) a0=0; se dibuja el comienzo y 
el final de la figura en el ecuador. 

b) a0=45; se dibuja el comienzo 
y el final de la figura en la latitud 
de 45 grados. 

3. Selecciona el número de fi¬ 
guras verticales (secciones), sb. co¬ 
menzando en la longitud bO, don¬ 
de; 

a) bo=0; dibuja el primer y últi¬ 
mo plano de la figura en el plano 
z=Q, esto es, paralelo a la pantalla. 

b) b0=90; sitúa la figura en el 
plano de x=x0, esto es, en la esqui¬ 
na de la pantalla. 

Esto permite dibujar figuras des¬ 
de un haz de planos verticales — 
donde la intersección de los planos 
se sitúa en las coordenadas, xO y 
zO. 

El programa se puede modificar 
con facilidad para que dibuje una 
serie de haces de planos con una 
intersección horizontal cambiando 
la longitud por la latitud y vicever¬ 
sa. Se han incluido unos ejemplos 
de parámetros que se piden en las 
sentencias INPUT que puede ser 
efectivo en combinación con la 
traslación y rotación. 

Recuerde que todas las dimen¬ 
siones están en milímetros y se di¬ 
bujarán con exactitud en perspec¬ 
tiva dentro de las coordenadas de 
la pirámide de visión. Esto signifi¬ 
ca que el valor de R tendrá que ser 
menor o igual que 62 para aquellos 
objetos que se encuentren en 
z0=500. 

Observe que seleccionar z0-500 


hará que la parte frontal de los ob¬ 
jetos se encuentren en frente de la 
pantalla y que la parte superior e 
inferior del objeto tienda a cortar¬ 
se. 

La traslación (a lo largo del eje x, 
por ejemplo) se puede demostrar 
con efectividad añadiendo un bu¬ 
cle para zO en el programa de la 
manera siguiente: 

90 REM Ejemplo de ZOOM 

185 LET z0=500 

440 LET z0= zO + 100; IF zO > 
I100THEN GOTO 90 
443 GOTO 190 

Lo mismo se puede hacer para la 
traslación por los ejes x e y. 

Para combinar ía rotación alre¬ 
dedor del eje vertical (longitud) 
con la traslación (en el eje x) se 
puede proceder de la forma si¬ 
guiente: 

110 REM Combinación de trasla¬ 
ción/ rotación 

185 LET x0=-45 

188 LET b0= bO + 10: REM Rota¬ 
ción de lOgrados 

440 LET x0= xO + 22.5: IF xO > 
45 THEN GO TO 90 
443 GOTO 188 

Transformación de 
perspectivas: proyecciones 
de los puntos 


xp / d = x i z 

xp = x * d / z .(la) 

x i z <= w / d 

x <= z * w / d .(2a) 
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Algunos ejemplos de Las figuras que se pueden crear con este programa, y que pueden modificarse con una pequeña traslación (R = R^). 
Vale la pena intentarlo, 


























































yp / d = y / z 

yp = y * d i z .(la) 

y / z <= h / d 

y < = z * h / d .(2a) 


La transformación de los puntos 
(figura 1) se deriva de triángulos 
equivalentes, Odxp y Ozx, para x; 
esto también se puede comprobar 
para y. Esta transformación se uti¬ 
liza para “plolear” puntos con las 
sentencias PLOT. La pirámide de 
observación determina el espacio 
en 3 D en la parte anterior y poste¬ 
rior de la pantalla que se puede 
utilizar sin problemas de cortar el 
objeto (ecuación 2a). 


Proyección de vectores 

dxp = dx*d/z + x*dk 

dyp = dy*d/z + y*dk ...... (3a) 

La combinación total de la 
proyección de vectores se puede 
observar en la figura 5. 

La transformación de vectores se 


utiliza con la sentencia DRAW del 
Spectrum para poder dibujar las 
proyecciones de los incrementos 
(vectores)dx, dy y dz. 

1. La proyección de dx y dy se 
derivan de la misma manera que 
con la proyección de puntos aisla¬ 
dos (ver figura 6). 

dxp = dx * d / z 

dyp = dy *d/z .(4a) 

2. La proyección de dz se deri¬ 
va vía dk. dk se define como el de¬ 
crcmento del factor de la perspec¬ 
tiva (k = d / 7.) debido a sólo un in¬ 
cremento de z por dz. 

dk = (d / (z + dz» - dz.(5a) 

Refiriéndonos a la figura 7 y 
aplicando la transformación están¬ 
dar del punto aislado (ver ecuación 
la) para los puntos P1 (x 1, y 1, z) y 
P2(x 1, y t, z + dz), podremos dedu¬ 
cir lo siguiente: 

xpl = xl * d / z, xp2 = xl * d / (z + 
dz)) i 

ypl =yl * d / z, yp2 = yl * d i (z + 
dz» .. (6a) 


Como, dxp = xp2-xpl 

= xl * d / (z + dz) - 
xl *d/z 

= xl * (d /(z + dz)-d 
/z) 

= x 1 * dk 

por ejemplo, dxp (en función de 
dz solamente) = x * dk 
dyp (en función de dz solamente) = 
y * dk. (7a). 

Los efectos combinados de los 
tres incrementos, dx. dy y dz, es 
como consecuencia de ello la suma 
de todos los componentes de la 
proyección (ver ecuaciones 3a y la 
figura 5). Las ecuaciones se expo¬ 
nen de nuevo por conveniencia: 

El total de: 

dxp = dx * d/z + x * dk 
dyp = dy * d/z + y * dk 

debido debido 
a dx o a dz 
a dy solamente 
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En el número 1 de 
TODOSPECTRUM, y con 
el título “64 caracteres”, 
ofrecíamos un pequeño 
editor de textos cuya 
principal característica era 
trabajar con 64 caracteres 
por línea. Si le agradó la idea 


y la resolución de su pantalla 
le permite trabajar 
cómodamente con 64 
caracteres, le ofrecemos 
ahora la rutina 
que lo hace 
posible y que podrá 
incorporar a sus programas. 


U na aproximación al pro¬ 
blema nos da las dos solu- 
dones posibles: cambiar 
® completamente la círcuite- 
ría de video, o rede fin ir el 
ancho de los caracteres a la mitad 
del estándar. La primera es prácti¬ 
camente inalcanzable para el afi¬ 
cionado medio, aunque actual¬ 
mente existe una firma comercial 
inglesa desarrollando una tarjeta 
de 80 columnas en un sistema de 
expansión parad Spectrum. La se- 















gunda solución no nos da un juego 
de caracteres perfectamente for¬ 
mado, o e! formato más deseable 
de 80 columnas, pero es barata y. 
sencilla de poner en funciona¬ 
miento. 

La solución final fue una rutina 
en código máquina que imprime 
texto a razón de 64 caracteres por 
línea. Ya que no es posible cam¬ 
biar la resolución estándar de 256 
pixels (elementos de pantalla) ho¬ 
rizontales, tenemos que dividirlos 
en grupos de 4 para conseguir las 
64 columnas deseadas. Estos 4 ele¬ 
mentos de pantalla deben incluir 


la separación entre caracteres, por 
lo que sólo nos restan 3 pixels para 
definir cada carácter. Es posible 
que los caracteres no estén perfec¬ 
tamente formados, pero son sufi¬ 
cientemente legibles. Una nota so¬ 
bre este tema: debido a que la reso¬ 
lución no se cambia, el ancho de 
banda de la señal de video no es in¬ 
crementado como se podría pen¬ 
sar, por lo que el televisor normal 


nos servirá como pantalla en este 
modo de visualización al igual que 
con el formato de 32 columnas. 
Sin embargo si se usa un monitor 
con entrada de video en lugar del 
televisor, se conseguirá un incre¬ 
mento notable en legibilidad y de¬ 
finición en cualquier tipo de pan¬ 
talla (texto, dibujos, etc.) generada 
por el ordenador. El problema es 
que el Spectrum no dispone de sa- 
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lida de video estándar. Unicamen¬ 
te disponemos de video directo en 
el bus de conexiones de la parte 
trasera del ordenador. Esta señal 
no es estándar en su amplitud y 
tampoco lo es la impedancia de sa¬ 
lida del circuito generador de vi¬ 
deo. La solución es intercalar un 
buffet o amplificador entre la má¬ 
quina y el monitor. Este puede ser 
un simple transistor NPN en con¬ 
figuración de seguidor de emisor 
{base directamente a la salida, emi¬ 
sor a masa a través de una resisten¬ 
cia de unos 3 K, y colector directa¬ 
mente a cualquier punto de ali¬ 
mentación) con un ancho de banda 
suficiente (10-20 Mhz.). Aquellos 
que hayan manejado un soldador 
alguna vez no tendrán ningún pro¬ 
blema. 

Volviendo al problema del soft¬ 
ware, se precisó que sería necesario 
un programa en lenguaje máquina 
para realizar la impresión de ca¬ 
racteres a una velocidad razona¬ 
blemente alta y para poder llamar 
la rutina desde el sistema operati¬ 
vo del Spectrum. Se escribió una 
rutina de impresión que imprime 
caracteres en cualquier punto de la 
pantalla. Se diseñó un nuevo juego 
de caracteres, pero algunos fueron 
prácticamente imposibles de defi¬ 
nir debido al ancho permitido. 
Afortunadamente estos caracteres 
son irrelevantes, como el símbolo 
de “copyright”. Por lo que se susti¬ 
tuyen por caracteres del castellano 
no presentes en el juego estándar 
del Spectrum. 

Se programó una segunda rutina 
que aceptase el código de un carác¬ 
ter en el acumulador de la máqui¬ 
na y llamase a la rutina de impre¬ 
sión para imprimirlo en pantalla. 
Esta subrutina actualiza automáti¬ 
camente la posición de impresión 
incrementándola en 4 pixels hori¬ 
zontales u 8 verticales (si se alcan¬ 
za el final de la línea), cada vez que 
se imprime un carácter. La rutina 
no realiza scrolling al llegara la úl- 

I tima línea, aunque no se descarta 
esta posibilidad en un futura am¬ 
pliación del programa. El código 


de carácter de “AT” (CHR$ 22) 
hace que la rutina tome los dos si¬ 
guientes caracteres que reciba en el 
registro A como dos números que 
determinan las coordenadas del 
elemento de pantalla donde se im¬ 
primirá el próximo carácter (em¬ 
pezando por la esquina superior 


izquierda). El carácter ENTER 
(CHRS 13) es ignorado, y cual¬ 
quier otro que no esté en el rango 
32-127 dará impresiones sin senti¬ 
do, ya que la rutina tomará como 
modelo de carácter una zona de 
memoria donde no existe tal. 

Esta rutina fue escrita teniendo 
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en cuenta la posibilidad de ser lla¬ 
mado desde el sistema operativo 
del Spectrum. La rutina de impre¬ 
sión de un carácter (RST 161 en la 
ROM del ordenador puede ser for¬ 
zada a llamar nuestra subrutina in¬ 
troduciendo su dirección de co¬ 
mienzo en 2 bytes del área de in¬ 
formación de canales, de forma 
que cada vez que se ejecute una 
sentencia PR1NT desde el BASIC = 
el mensaje será impreso en panta¬ 
lla en el formato de 64 columnas. 
Por desgracia estos dos bytes son 
renovados cada vez que se realiza 
un listado de programa, ya sea me¬ 
diante el comando oportuno o 
apretando la tecla ENTER. Esto es 
debido a que la rutina de listado 
envía a la de impresión los códigos 
de las palabras claves (Tokens) di¬ 
rectamente sin decod i Picador, ta¬ 
rea que ha de realizar esta última. 
Si utilizásemos este sistema, sería 
necesario renovar la dirección 
cada vez que se fuera a imprimir 
algo. Sin embargo la rutina 
LPRINT posee la misma facilidad, 
con la diferencia de que los bytes 
que contienen la dirección de lla¬ 
mada a la rutina no son cambiados 
una vez alterados. Esto nos permi¬ 
te usar el comando LPRINT para 
usar nuestra rutina desde el BA¬ 
SIC. Una subrutina que es llamada 
en primer lugar, almacena la direc¬ 
ción apropiada en los bytes que 
contienen la información del canal 
de impresora (correspondientes al 
valor contenido en la variable del 
sistema CHANS + 15). El formato 
de una instrucción LPRINT para 
nuestros propósitos será: 

LPRINT AT x,y; “(texto a impri¬ 
mir)” 

Donde x e y son las coordenadas 
del pixel allí donde se quiere co¬ 
menzar la impresión. Si se omite 
esto, el texto será impreso después 
del último carácter enviado a la ru¬ 
tina o en la posición 0,175 si la ru¬ 
tina es llamada por primera vez. 

Este sistema no deja a la impre¬ 
sora ZX totalmente fuera de uso, 
ya que puede ser usada restauran¬ 


do los valores originales en 
CHANS +15 y CHANS+16. Estos 
son los bytes 244 y 9. Es decir, 
cada vez que queramos usar la im¬ 
presora bastará con “pokear” en 
CHANS +15 el valor 244, y en 
CHANS +16 el valor 9. De esta 
forma el canal LPRINT queda di- 
reccionado a la rutina existente en 


la ROM. Para volver a usar nues¬ 
tra rutina habrá que volver a Ma¬ 
mar la subrutina de inicialización 
explicada anteriormente. También 
es posible imprimir con la impre¬ 
sora a 64 columnas efectuando el 
mismo proceso pero manteniendo 
el texto a imprimir en pantalla, de 
forma que podamos realizar un 
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“COPY” una vez direccionada la 
impresora. 

El nuevo juego de caracteres de¬ 
finido admite las letras del caste¬ 
llano “ñ”, y "i”; así como 
acentos en todas las vocales. Los 
cuatro símbolos sustituyen a los 
caracteres hash (código 35), am¬ 
per sand (código 38), ai (código 


64), y barra vertical (código 124); 
de forma que podemos obtener es¬ 
tos nuevos caracteres incluyendo 
los correspondientes que susti¬ 
tuyen en la sentencia LPRJNT que 
ejecutemos. El acento se obtiene 
tecleando el “apóstrofo” (código 
39) antes de la vocal deseada. Una 
vez ejecutada la sentencia aparece¬ 


rá la vocal correspondiente acen¬ 
tuada. Un ejemplo de esto puede 
ser esta sentencia: 

LPRINT “Erarbol” 

Que dará como resultado: 

El árbol 

en la pantalla del ordenador. 

El programa completo ocupa al¬ 
rededor de I K de memoria. El lis¬ 
tado se ha dado en ensamblador, 
de forma que aquellos que dispon¬ 
gan de esta herramienta puedan 
introducir la rutina cómodamente. 
Para los más modestos se da el en¬ 
samblado en hexadecimal en el la¬ 
teral izquierdo del propio listado. 
Este ensamblado ha sido realizado 
en la dirección de memoria 30000, 
por lo que al cargarse el código ha¬ 
brá de hacerse estrictamente a par¬ 
tir de esta dirección, ya que la ruti¬ 
na no es relocalizable. Un sencillo 
cargador hexadecimal bastará para 
la tarea. Se adjunta también una 
tabla de números en decimal que 
constituyen el nuevo juego de ca¬ 
racteres. Esta tabla deberá introdu¬ 
cirse en memoria a partir de la eti¬ 
queta del listado, del ensamblador 
“CARSET”. Se puede introducir 
en el propio ensamblador con un 
pseudonemónico del tipo DEFB 
(Define Byie), o bien directamente 
en memoria a partir de la direc¬ 
ción indicada por la etiqueta suso¬ 
dicha. Los que utilicen ensambla¬ 
dor podrán, por supuesto, ensam¬ 
blar el código en la dirección de 
memoria que deseen, cuidando 
siempre de que esté por encima del 
RAMTOP. Para los que introduz¬ 
can el ensamblado directamente 
en la dirección 30000, CARSET se 
halla en la 30400. CHANEL es la 
subrutina que hay que llamar para 
incializar el canal de LPRINT, y 
se halla en la dirección 30386. Es 
decir, cada vez que se cargue el 
programa hay que ejecutar la sen¬ 
tencia: 

RANDOMIZEUSR 30386 

Y la rutina queda preparada 
para usarse desde BASIC. USER es 


7628 C9 1320 

7629 78 - 1330 

762A FEOD 1340 

762C 2001 1350 

762E C? 1360 
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7639 47 1420 

763A 210376 1430 

763D 7E 1440 

763E FEO 1 1450 

7640 2026 1460 

7642 78 1470 
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765B 3001 1620 

765D 14 1630 

7Ó5E 21C076 1640 

7661 19 1650 

7662 E5 1660 

7663 3620 1670 

7665 23 1680 

7666 3640 1690 

7668 78 1700 

7669 C6C0 ' 1710 

766B 3004 1720 

766D 78 1730 

766E 3C 1740 


E3 

RET 

(_D 

A, B 


CP‘ 

13 


JR 

NZ, E4 

£4 

RET 

CP 

39 


JR 

NZ S E5 


LD 

HL,ACENTO 


LD 

<HL),1 

E5 

RET 

LD 

B, A 


LD 

HL,ACENTO 


LD 

A,(HL) 


CP 

1 


JR 

NZ, E6 


LD 

A j B 


ADD 

A, 192 


JR 

NC, E7 


LD 

A, B 


JR 

ES 

E7 

SUB 

224 

E8 

LD 

E ? A 


LD 

D, 0 


SLA 

E 


JR 

NC, E9 


INC 

13 

E9 

SLA 

E 


JR 

z: 

o 

m 

H*" 

o 


INC 

D 

E10 

SLA 

E 


JR 

NC,E11 


INC 

D 

Eli 

LD 

HL,CARSET 


ADD 

HL, DE 


PUSH 

HL. 


L.D 

(HL),32 


INC 

HL 


LD 

<HL),64 

E6 

LD 

A, B 


ADD 

A, 192 


JR 

NC,E12 


LD 

A, B 


INC 

A 



la rutina que recibe el código del 
carácter en el acumulador, y que es 
llamada por el sistema operativo. 
Este se halla en la 30212. Aquellos 
que lo deseen pueden llamar la ru¬ 
tina desde otro programa en códi¬ 
go máquina haciendo un CALL 
30212 (o la dirección pertinente si 
se ensambla en otra zona), habien¬ 
do cargado previamente el registro 
A con el código del carácter a im¬ 
primir. 

El funcionamiento del programa 
a grandes rasgos es como sigue: la 
rutina USER recibe en el acumu¬ 
lador el código del carácter a im¬ 
primir. En primer lugar lo compa¬ 
ra con el código AT .(22). Si es éste, 
retorna el control al programa de 
llamada, fijando previamente una 
“bandera” o flag que le indica que 
el próximo código es una coorde¬ 
nada de impresión y no un carác¬ 
ter. Posteriormente compara con 
el código 13 (ENTER), realizando 
un simple retomo si se trata de 
éste. Por último compara con 29 
(apóstrofo). Si se ha enviado un 
apóstrofo el programa entiende 
que se quiere acentuar la próxima 
letra, y por lo tanto fija una “ban¬ 
dera” de control (ACENTO) que 
se lo indicará en la próxima llama¬ 
da. Al recibir el siguiente carácter, 
modifica el modelo de éste (hallan¬ 
do previamente su dirección en el 
juego de caracteres) de forma que 
incluya el acento. Por último lla¬ 
ma a la rutina de impresión de un 
carácter (PRINT) pasándole los 
parámetros de código del carácter 
y posición de impresión. Si la últi¬ 
ma letra fue acentuada, remodifica 
el modelo de su carácter. Antes de 
devolver el control al programa de 
llamada actualiza la posición de 
impresión, incrementándola hori- 
zontalmentc en 4 pixels o vertical¬ 
mente en 8, según corresponda. La 
rutina de impresión al ser llamada, 
calcula la dirección del carácter a 
imprimir en el juego de caracteres. 
Después toma éste como modelo y 
entra en un huele (LAZOl) de 8 
iteraciones en el que cada byte del 
carácter es explorado bit por bit. 


llamándose a las rutinas BORRA o 
PINTA según el bit valga 1 o 0. 
Las rutinas BORRA y PINTA lla¬ 
man a la rutina PLOT de la ROM 
con distintos parámetros INVER¬ 
SE y OVER para que borre o pinte 
un punto según el caso. Una vez 
terminado el bucle, el carácter ya 
está impreso en la pantalla, y por 


lo tanto se devuelve el control a 
USER. 

Y esto es todo, una sencilla ruti¬ 
na con la que puede dar un toque 
profesional a sus programas en 
BASIC si se usa para imprimir 
mensajes, o para soportar la salida 
en código máquina. 

Javier Cancela 


766F 

1802 

1750 


JR 

E13 

7671 

D6DF 

1760 

E12 

SUB 

223 

7673 

3 2 3 4 7 5 

1770 

El 3 

LD 

<CAR),A 

7676 

C5 

1780 


F'USH 

BC 

7677 

CD3775 

1790 


CALL 

PRINT 

767A 

3A3075 

1800 


LD 

A, (XP03) 

767D 

C604 

1810 


ADD 

A,4 

767F 

3805 

1820 


JR 

C, E14 

7681 

323075 

1830 


LD 

(XP03),A 

7684 

180D 

1840 


JR 

E15 

7686 

3 A 3.175 

1850 

El 4 

LD 

A< YPOS) 

7689 

D608 

1860 


SUB 

8 

768B 

"T'T'T H 7C 1 

1/U 

1870 


L.D 

(YPOS),A 

76BE 

3E00 

1880 


LD 

A, 0 

7690 

3 2 U 7 5 

1890 


LD 

(XPÜS),A 

7693 

3A0376 

1900 

E15 

LD 

A,(ACENTO) 

7696 

C1 

1910 


POP 

BC 

7697 

FE01 

1920 


CP 

1 

7699 

2016 

1930 


JR 

NZ^Elfc 

769B 

El 

1940 


POP 

HL 

769C 

7B 

1950 


LD 

A, B 

769D 

FE69 

1960 


CP 

105 

769F 

2004 

1970 


JR 

NZ,E17 

76 Al 

3E40 

1980 


LD 

A , 64 

76A3 

1802 

1990 


JR 

El 8 

76A5 

3E00 

2000 

E17 

LD 

A, 0 

76A7 

3600 

2010 

E18 

L.D 

<HL),0 

76A9 

o-r 

2020 


INC 

HL 

76 A A 

77 

2030 


LD 

< HL.) , A 

76 AB 

00 

2040 


NOP 


76AC 

3E00 

2050 


LD 

A, 0 

76AÉ 

320376 

2060 


LD 

(ACENTO) ,, A 

76B1 

C9 

2070 

El 6 

RET 


7682 

2A4F5C 

2080 

CNANEL. 

LD 

HL,(23631) 

7685 

010F00 

2090 


LD 

BC, 15 

76B8 

09 

2100 


ADD 

HL, BC 

7689 

010476 

2110 


LD 

BC,USER 

76BC 

71 ' 

2120 


LD 

ÍHL),C 

76BD 


2130 


INC 

HL. 

76 BE 

70 

2140 


LD 

(HL),B 

76BF 

09 

2150 


RET 


7 6C0 

00 

2160 

CAR8ET 

DEFB 

0 

7 6C0 


3000 


ENT 

CARSET 




Spectrum puede con todos. 


¿Quién nos gana en 
gama? Estamos por 
asegurar que ninguno. 

No olvides que tenemos un 
Spectrum para cada 
exigencia: dos capacidades 
diferentes (16Ky 48K) y 
tres modelos con dos tipos 
de teclado (doméstico y 
profesional). 


¿Quién nos gana en 
programas? Spectrum 
cuenta con más de 5.000 
títulos publicados a nivel 
internacional, cien de ellos 
están traducidos al 
castellano. 

Naturalmente estos crecen 
casi de forma constante. 
Una buena muestra es el 
voluminoso catálogo de 
soflware que puedes 
solicitar a tu distribuidor de 
confianza. 


¿Quién nos gana en 
periféricos? Ya son más de 

50 los periféricos creados 
especialmente para el 
Spectrum, pero no creas 
que eso termina ahí. Es 
muy raro el día que no 
aparece en el mercado una 
novedad. Así tu Spectrum 
guardará para tí el mismo 
interés del primer dio. 


¿Quién nos supera en 
número? Otro factor a tener 
en cuenta: te diremos que 
ya son más de tres 
millones los 

microordenadores Sinclair 
vendidos en todo el mundo 
(y más de 100.000 
Spectrum vendidos en 
España) ¿no te parece esto 
una buena razón para 
confiar en tu Spectrum?. 

Decídete; este año tener un 
Spectrum es todo un regalo. 



SINCLAIR RESEARCH LIMITED hace constar que no está en condiciones de garantizar el origen y calidad de 
aquellos productos que no hayan sido comerciaiizados en España a través de su distribuidor exclusivo INVESTRONICA, S.A. 


























Llamado en general Life . aunque también recibe distintos 
nombres y modalidades, es el programa típico de obligada 
incorporación en todos ios paquetes de demostración, 
independientemente del ordenador. Este conocido 
programa nos servirá en esta ocasión para analizar las 
técnicas de programación BASIC a emplear en el 
Spectrum. 


'■T'l L juego de la vida no es en 
realidad un juego sino un 
M—U proceso evolutivo que el 
^■i usuario prepara y observa. 

Inventado por John Con- 
way, el programa simula una colo¬ 
nia de células, que se desarrollan a 
partir de una colonia inicial de 
acuerdo con tres reglas básicas. Las 
células se sitúan en un tablero 
compuesto de casillas individuales 
y cada generación siguiente se de¬ 
termina según el número de casi¬ 
llas adyacentes que contengan cé¬ 
lulas. Las reglas son las siguientes: 

1) Si una célula posee, en los 8 
casilleros adyacentes, dos o tres cé¬ 
lulas vecinas, sobrevivirá a la si¬ 
guiente generación. 


2) Una célula muere (desapa¬ 
recerá del tablero en la siguiente 
generación) si tiene 4 o más células 
vecinas (por superpoblación); y 
uno o ningún vecino (por aisla¬ 
miento). 

3) En cada casilla que esté va¬ 
cía que tenga tres vecinos nacerá 
una célula en la siguiente genera¬ 
ción. 

Para implementar esto en el or¬ 
denador, es obvio que deberán ma¬ 
nejarse tablas bidimensionales de¬ 
bido a que el tablero está compues¬ 
to de filas y columnas. También es 
necesario tener otra tabla extra de¬ 
bido a que el tablero de la genera¬ 
ción (n+1) se define de acuerdo con 
!a generación (n), y ninguna célula 



5 REM "LIFE" 

10 PRINT TAB 12 
20 PRINT 
30 Í)IM A (16, 16) 
40 DIM B( 16.16) 
50 DIM A$(6,6) 


:"♦LIFE** 


140 NEXT F 

145 REM «SITUA LA COLONIA EN LA 
CADENA* 

150 FOR F=1 TO 6 
160 FOR Z~1 Tü 6 
170 IF A*(F.Z>■"*“ THEN LET B< 


60 LET GEN®O 

70 REM «COLONIA INICIAL* 

80 PRINT "TECLEE LA COLONIA IN 
ICIAL QUE SE SITUARA EN LAS CA 
SILLAS CEN- TRALES DE 6 x 6. TEC 
LEE 6 CADE- ÑAS DE 6 CARACTERES, 
YA SEAN AS-TERISCQS (*> O ESF'AC 
IOS. " 

90 PRINT 

100 FOR F*1 TO 6 

110 PRINT "CADENA ":F: 

120 INPUT A$(F> 

130 PRINT " ":A$(F) 


F+5,Z+5)=1 
180 NEXT Z 
190 NEXT F 
200 GO SUB 1000 

205 REM * INCREMENTO DE bENERACI 


ON* 

210 LET 
230 FOR 
240 FOR 
250 REM 
260 LET 
265 REM 
VECINAS* 


6EN=6EN+1 
X=2 TO 15 
Y=2 TO 15 

♦INICIALIZA CONTADOR* 
C-0 

♦COMPRUEBA LAS CELULAS 
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la vida 


de la generación (n) se puede alte¬ 
rar hasta que no se completa el 
proceso de comprobación. 

En la tabla de la generación (n) 
hay que hacer una comprobación 
de todos los casilleros, y contabili¬ 
zar el número de células vecinas. 
Según las reglas, el futuro de la cé¬ 
lula en esa posición está determi¬ 
nado, y si está vacío nacerá una 
nueva célula. Estos datos se alma¬ 
cenan en una cadena, y seguida¬ 
mente la cadena de la generación 
se actualiza según los cambios. 

El programa se divide en las si¬ 
guientes secciones: 

1) Inicialización (líneas 30-60). 
Preparación de dos tablas de 16 x 
16, con 6 cadenas para almace¬ 
nar ía colonia inicial. El conta¬ 
dor de generaciones se iniciatiza 
aO. 

2) Entrada de los datos de la 
colonia inicial (líneas 70-140). Se 
introducen y se imprimen 6 cade¬ 
nas de 6 caracteres. 

3) La colonia inicial se alma¬ 
cena en la cadena. Las líneas 
150-190 sitúan la célula “1 ” en la 
cadena B cuando se detecta un as¬ 
terisco en la cadena inicial te¬ 
cleada en el punto 2, en el bloque 
central de 6 x 6. 

4) Subrutina de impresión. La 
línea 200 manda el control a la sub- 


270 IF A(X-1,Y>=1 THEN LET C«C 
+1 

290 IF A < X-l.Y+l)-1 THEN LET C 
=C+1 

300 IF A < X.Y+1> = 1 THEN LET C=C 

+1 

310 IF A(X.Y-1)=1 THEN LET C=C 
+ 1 

320 IF A<X + l.Y—l)=1 THEN LET C 
=C+1 

330 IF A (X+l. Y) =1 THEN LET OC 
+1 

340 IF A(X+1.Y+1)=1 THEN LET C 
=C+1 

345 REM «DECIDE SI NACE* 

350 IF A ( X » Y) =0 AND 03 THEN L 
ET B(X¡,Y)=1 

355 REM «DECIDE SI MUERE* 

360 IF A (X, Y) “ 1 AND (03 Ofi C<2 
) THEN LET B<X,Y>=0 


370 

NEXT Y 



380 

NEXT X 



400 

Gü TO 200 



1000 

CLS 



1005 

PRINT AT 0. 

1;"GENERACION 

■' . 

GEN 




1010 

FÜF; X=1 TO 

16 


1020 

FOR Y-l TO 

16 


1025 

REM «ACTUALIZACION DE LA 

CA 

DENA 

A* 



1030 

LET A(X,Y > — 

B(X.Y) 


1035 

REM «IMPRIME LA CADENA» 


1040 

IF A(X f Y> — 1 

THEN PRINT 

AT 

X+2,Y+6; 



1050 

IF A <X, Y)”0 

THEN PRINT 

AT 

X+2,, Y+6; " " 



1060 

NEXT Y 



1070 

NEXT X 



1080 

COR Y 



1090 

RETURN 
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rutina. Esta utiliza un bucle do¬ 
ble para igualar las cadenas A y B, 
y a continuación imprime un aste¬ 
risco en el tablero por cada *‘1” 
que encuentra en la cadena A. Ob¬ 
serve que al final de esta subrutina, 
las cadenas A y B contendrán la 
misma información. La pantalla se 


copia y se devuelve el control a la 
línea 210. Aquellos que no tengan 
la impresora tendrán que omitir la 
linea 1080. 

5) Comprobación de la pobla¬ 
ción para determinar la generación 
siguiente. La generación se incre¬ 
menta en una unidad. El bucle do¬ 


ble se inícializa y cada célula en la 
cadena A se comprueba para ver el 
número de células vecinas que po¬ 
see. El contador C se incrementa 
en una unidad por cada vecino que 
tenga. La línea 350 sitúa una célu¬ 
la “recién nacida” en la cadena B 
si la célula de la cadena A está en 
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blanco, y el número de vecinos es 
3. La línea 360 mata cualquier cé¬ 
lula que esté rodeada de 3 o menos 
de dos vecinos. Al elemento co¬ 
rrespondiente en la cadena B se le 
pone un 0. Llegados aquí, la cade¬ 
na B contiene la futura generación 
de células. La cadena A se deja 


para el proceso de comprobación. 
Esta es la razón por la que las dos 
cadenas se igualan en el punto 4. 

6) El control se devuelve a la 
línea 200 y se repiten los puntos 4 
y 5. 

La forma de situar los asteriscos 
al comienzo, determinará la mane¬ 


ra de desarrollarse las células. Al¬ 
gunos planteamiento iniciales 
mueren después de unas cuantas 
generaciones, mientras otros en¬ 
tran en un ciclo estable que se re¬ 
pite y hay una tendencia general 
hacia la simetría si la población so¬ 
brevive el tiempo suficiente. 


© 


INCREMENTAR 

GENERACION 


X-2 

V AIR 

X=X+J 



Y=2 


Y=Y+1 


Y>I5 


T 


£ 

CONTADOR 
C= 0 


CONTADOR C= 
-N° DE VECINOS 
PARA A(X,Y) 



8( X ,Y) s I 
NACE 





8{X,Y)=0 

MUERE 


^ENTRADA ^ 

, t 

/ IMPRIMIR / 

/ GENERACION / 

r* 

I 

x= 1 

X >16 

- X=X+I 


r 

Y = 1 

Y >16 

- Y:Y+ 1 

3 


A ( X,Y) 

- B {X,Y ) 



f COPIAR 
PANTALLA 


~T~ 

í RETíJRN 


© 










































































En este segundo capítulo vamos 
a tratar de explicar más detenida¬ 
mente la manera de formar las ex¬ 
presiones de las que hablamos an¬ 
teriormente, y una visión más ge¬ 
neral sobre los tipos básicos de da¬ 
tos. Veremos los datos de tipo en¬ 
tero, boolean, real, y el tipo carác¬ 
ter, las expresiones que podemos 
formar con ellos y los operadores 
correspondientes. 


Expresiones 

En general las expresiones las 
utilizamos en diferentes contextos 
dentro de los programas, pero to¬ 
das tienen un propósito básico, 
que es el obtener un valor como re¬ 
sultado. Por otra parte, los distin¬ 
tos operadores dentro de una ex¬ 
presión tienen una jerarquía, esto 
es, un sistema de prioridades, o sea 
que dentro de una expresión se eje¬ 
cutan unos antes que otros. Así la 
lista de operadores clasificados por 
orden de prioridad decreciente es; 

1) NOT, y cambio de signo: — 


2) D1V. MOD. *, /, AND 

3) +, - OR 

4) <,<,=,>,>,<> 

La sintaxis de una expresión se 
observa en las figuras 1 a 4. 

Si queremos modificar este or¬ 
den natural, tendremos que utili¬ 
zar paréntesis, siendo la parte en¬ 
cerrada entre éstos la que toma la 
más alta prioridad. Todas las ex¬ 
presiones tienen un tipo y un va¬ 
lor. Vamos a estudiar ahora los 
distintos tipos de expresiones, jun¬ 
to con los tipos de datos. 


Datos de tipo entero 

E] tipo INTEGER nos permite 
representar, almacenar y procesar 
números enteros en Pascal (cero, 
positivos y negativos). El tamaño 
de los enteros con que podamos 
operar dependerá de la longitud de 
palabra de cada ordenador. Si su¬ 
ponemos que el identificador ma¬ 
je int es el máximo valor entero per¬ 


mitido, el Pascal operará con valo¬ 
res enteros dentro del rango: 

— maxint, ..., -1,0,1, ..., ma- 
xint 

Si se excede del máximo valor 
maxint se producirá la condición 
de overflow (exceso de capacidad). 

En lo referente a las constantes 
enteras, éstas se escriben como una 
secuencia de dígitos decimales, op¬ 
cionalmente precedida por un sig¬ 
no: indicará un número nega¬ 

tivo, y el signo “+” o sin signo indi¬ 
cará un número positivo (figuras 5 
y 6). Ejemplos de constantes ente¬ 
ras serían: 

máximo = 100 

m in i mo = -máximo 

n =-245 

Un ejemplo de constante erró¬ 
nea sería 12.05, pues contendría el 
carácter especial Para usar va¬ 
riables enteras dentro de un pro¬ 
grama tendremos que especificarlo 
en la parte de declaración de varia¬ 
bles de tipo entero. Un ejemplo de 
declaración de variables enteras es: 

VAR número I, número 2: inte- 
gen 

Una expresión entera en el caso 
más general está constituida por 
una serie de constantes enteras y 
variables enteras ligadas por los 
operadores aritméticos de suma 
{+), resta (-), multiplicación (*) y 
división entera (D1V). 

Recordemos que también es po¬ 
sible obtener el resto de una divi¬ 
sión usando el operador MOD. 
Este operador viene definido por: 

a MODb = a-(a DIV b)* b 

En una expresión entera el or¬ 
den de prioridad de las operacio¬ 
nes se realiza de acuerdo con las si¬ 
guientes reglas: 

1. Se efectúan las operaciones 
de multiplicación y/o división in¬ 
distintamente, comenzando por la 
izquierda, 

2. Se realizan a continuación 
las operaciones de suma y/o resta, 
también empezando por la iz¬ 
quierda. 

Así, por ejemplo, la expresión 
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entera: a + b * c - d. se evaluará de 
la siguiente forma: 

1) b * c = Y 

2) a + Y = Z 

3) Z-d 

En Pascal no existe el operador 
de exponenciación. Sin embargo, 
disponemos de la función estándar 
SQR(x) que nos permite calcular el 
cuadrado de x. Por último, para 
terminar con los datos de tipo en¬ 
tero debemos decir que el valor de 
una expresión entera puede asig¬ 
narse a una variable entera o a una 
variable real. 

Así, si hemos declarado: 

VAR 

velocidad, tiempo: INTEGER; 

espacio: REAL: 

la asignación espacio := velocidad 
♦ tiempo es perfectamente posible. 


Datos de tipo boolean 

Las constantes y variables boo- 
leanas pueden tomar únicamente 
dos valores: TRUE o FALSE (ver¬ 
dadero o falso). 

El conjunto lógico está ordenado 
en Pascal por la relación de falso 
< verdadero. 

Para utilizar una variable lógica 
dentro de un programa la debere¬ 
mos declarar con el atributo BOO¬ 
LEAN. Por ejemplo: 

VAR 

lógica: BOOLEAN; 

Existen tres operadores boolea- 
nos o lógicos: AND(A), OR(V) y 
NOT(l). La tabla de verdad que 
representa la lógica de actuación 
de estos operadores aplicados a las 
variables boolean as p y q es: 


p 

q 

pvq 

PA q 

1 p 

truc 

true 

true 

truc 

false 

truc 

false 

true 

false 

false 

false 

true 

true 

false 

true 

lalse 

false 

false 

false ! 

true 


Igualmente un valor lógico lo 
podemos obtener como resultado 
de cualquier relación o compara¬ 


ción, donde una relación viene de¬ 
finida por: 

e, operador de relación e 2 

siendo e, y e 2 expresiones aritméti¬ 
cas y los operadores de relación los 
ya conocidos <, , =, >,>,<>. 

Veamos un ejemplo para com¬ 


prender mejor lo dicho. Sean p y q 
dos variables booleanas, y X, Y, Z 
tres variables enteras que tienen 
los valores 5, 8 y 13, respectiva¬ 
mente. 

Las sentencias: 

p:=x = y 

q :=(x < y) A (y A z) 



Figura I 



Figura 2 



Figura 3 



































































































PASCAL 

definen los valores lógicos de 
p = faise y q = true. 

La sintaxis de las expresiones ló¬ 
gicas puede verse en las figuras 7 a 
9. 

La sentencia de lectura READ 
no acepta variables booleanas. Por 
tanto. los valores de estas variables 
se deberán asignar a lo largo del 
programa, nunca mediante una 
sentencia de lectura. 

Las expresiones de Boole son 
aquellas que al evaluarlas dan 
como resultado un valor lógico 
(true o faise i. Como hemos visto, 
un caso particular de una expre¬ 
sión es una comparación. Por 
ejemplo: 1 < 6 da inte al evaluar¬ 
la. Pero una expresión booleana 
propiamente dicha consiste en una 
combinación de constantes lógicas 
(true o faise), una variable lógica, 
una función estándar lógica y una 
función lógica de usuario. Unién¬ 
dolos mediante uno de los opera¬ 
dores booleanos NOT, AND y 
OR. advirtiendo que el operador 
NOT sólo afecta al operando que 
le sigue, es decir, es unario, mien¬ 
tras que AND y OR son binarios. 

Para terminar con el tipo boo- 
lean vamos a comentar tres funcio¬ 
nes estándar de Pascal que entre¬ 
gan un valor lógico al ser llamadas: 

a) La función ODD (x) para x 
entero pregunta si es impar, dando 
true en este caso y faise en caso 
contrario. 

b) La función EOF(f) indica si 
se ha alcanzado el final del fichero 
f dando true en este caso y faise en 
caso contrario. 

c) La función EOLN(f) que in¬ 
dica si se ha alcanzado el fin de lí¬ 
nea del fichero f. 

Estas dos últimas funciones se¬ 
rán vistas más adelante. 


Datos de tipo real 

Cuando deseamos medir canti¬ 
dades físicas, como distancias o 

Í tiempos, los números enteros nos 
resultan inadecuados. Estas medi¬ 
ciones dan lugar a números del 


tipo 15.77, 10 5 , 0.001, etc., a los 
que llamaremos números reales. 
Al igual que en los números ente¬ 
ros, existe un límite para el núme¬ 
ro de dígitos de un número real. 
Este límite dependerá de cada or¬ 
denador. 

Existen dos formas de represen¬ 
tar las constantes reales: en forma 
de notación decimal (coma fija) y 
en forma científica o coma flotan¬ 
te. 

Así, por ejemplo, 11E3 equivale 
a 11000.0 y 1E-3 equivale a 0.00i, 
donde la letra E representa el fac¬ 
tor de escala 10. 

Es imprescindible que el punto 
sea precedido y seguido de una ci¬ 
fra como mínimo. Por ejemplo, las 
constantes 4. .0 250 son incorrec¬ 
tas. 

Las variables reales deben ser 
declaradas mediante el atributo 
real. Un ejemplo de una declara¬ 
ción de variables reales es: 

VAR 

NI,N2: REAL; 

La sintaxis de un número real se 
representa en la figura 10. 

Las expresiones aritméticas con 
números reales se construyen de 
manera similar a las expresiones 
enteras. Los operadores aritméti¬ 
cos utilizados son: +, *, /, siendo 

“/” división real, es decir, el co¬ 
ciente es siempre un valor real. 

Veamos ahora las restricciones 
con respecto a las asignaciones. 

Mediante una sentencia de asig¬ 
nación se puede asignar a una va¬ 
riable real un valor o expresión 
que sea inte ge r o real. 

En cambio, no podemos asignar 
a una variable integer un valor o 
expresión real. Así, por ejemplo, si 
hemos declarado la variable 1 
como integer la sentencia I := 
2.345 es incorrecta. 

En cuanto a las expresiones, una 
expresión entera no puede conte¬ 
ner operandos reales, mientras que 
una expresión real puede contener 
operandos reales o enteros indis¬ 
tintamente. 

Además de la función SQR que 
ya hemos visto, el lenguaje Pascal 
tiene incorpordas un conjunto de 
funciones estándar en las cuales se 
acepta un determinado tipo de pa¬ 
rámetro ( integer o real) y devuelve 


un determinado tipo de resultado 
(integer o real), según la función. 
La lista de las funciones es la si¬ 
guiente: 

— ABS(x) valor absoluto de x. 

— SQR(x) cuadrado de x. 

— SIN(x) seno de x (x en radia¬ 
nes). 

— COS(x) el coseno de x para x 
en radianes. 

— ARCTAN(x) arcotangente 
de x (el resultado en radianes). 

— EXP(x)e\ 

— LN(x) el logaritmo neperia- 
no de x. 

— SQRT(x) raíz cuadrada de x 
(x mayor que O). 

— ROUND(x) valor de x re¬ 
dondeando al entero más próximo, 
por ejemplo, ROUND(3.7) = 4. 

— TRUNC(x) parte entera de x, 
por ejemplo, TRUNC(3.7) = 3. 


Datos de tipo carácter 

Los datos de tipo carácter los 
forman un conjunto finito y orde¬ 
nado de caracteres en el que están 
incluidas las letras, los dígitos, el 
carácter blanco y los caracteres es¬ 
peciales. Por supuesto, el juego de 
caracteres reconocidos dependerá 
de cada ordenador. 

Una constante de tipo carácter 
es un elemento del conjunto de ca¬ 
racteres disponibles, Se representa 
dentro de un programa por el ca¬ 
rácter encerrado entre apostrofes 
(comilla simple), excepto el propio 
apostrofe que a efectos sintácticos 
necesita ser duplicado. Por ejem¬ 
plo: 

y* «y» 

representan a los caracteres 1, /, V 
y ’, respectivamente. 

Estas constantes también pue¬ 
den ser una cadena de caracteres 
delimitadas por dos apostrofes. Un 
ejemplo de una cadena de caracte¬ 
res sería: ‘CADENA’ que constaría 
de 6 caracteres. 

En cuanto a las variables de tipo 
carácter deben ser declaradas en la 
parte de declaración de variables 
con el atributo CHAR. Por ejem¬ 
plo: 






VAR 

carácter, palabra: CHAR; 

La lectura de datos de tipo ca¬ 
rácter debe realizarse carácter a ca¬ 
rácter. Por tanto, si queremos leer 
una cadena de caracteres lo debe¬ 
remos hacer con sentencias repeti¬ 
tivas las cuales veremos más ade¬ 
lante. 

Vamos a ver, por último, cuatro 
funciones estándar que actúan so¬ 
bre datos de tipo carácter. Hemos 
dicho que el conjunto de caracte¬ 
res es un conjunto ordenado. La 
función ORD(x), siendo x un ca¬ 
rácter obtiene el valor ordinal de x 
en el conjunto ordenado de carac¬ 
teres. Evidentemente el valor obte¬ 
nido con esta función depende del 
conjunto de caracteres empleados 
por el sistema. En cualquier caso el 
máximo valor es el 255. En el sis¬ 
tema de codificación ASCII: 

ORD(‘1’)=48 

ORD(‘3’)=50 

La función CHR(x) es la inversa 
de ORD(x). Obtiene el carácter 
que corresponde al valor entero x 
dentro del conjunto ordenador de 
caracteres. Por tanto, se cumplen 
las relaciones: 

CHR(ORD{x))=x 

ORD(CHR(i)) = i 

Existen también otras dos fun¬ 
ciones que operan dentro del con¬ 
junto de caracteres. La función 
PRED(x) obtiene el carácter prece¬ 
dente al carácter x dentro del con¬ 
junto ordenado de caracteres, x no 
puede ser el primer elemento del 
conjunto. 

Por ejemplo: 

PRED(5)=4 

PRED(‘B’) = A 

y la función SUCC(x) obtiene el 
carácter que sigue al carácter x 
dentro del conjunto ordenado de 
caracteres. También deben cum¬ 
plirse las identidades: 


Dentro del conjunto de valores 
booleanos: 

PRED(true) = false 
SUCC(false)=true 
SUCC(true)= ERROR no existe. 

Vamos a incluir a continuación 
un pequeño programa para ver 


más claramente el uso de las ex¬ 
presiones aritméticas, y de algunas 
de las funciones estándar de las 
que ya hemos hablado. El progra¬ 
ma calcula las raíces de una ecua¬ 
ción de segundo grado. Incluye 
una sentencia IF de la que hablare¬ 
mos en próximos capítulos. 

También se ha incluido una 


Figura 5 
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Figura 10 



PRED(SUCC(x)) = x 
SUCC(PRED(x)) = x 







































































































constante de tipo carácter (cadena 
de caracteres). 

El programa de ejemplo realiza 
la resolución de ecuaciones de se¬ 
gundo grado por la fórmula: 


-b ± V b 2 - 4ac 
x =- 

2a 

En él aparecen las tres senten¬ 
cias básicas que hemos explicado 


hasta ahora (lectura, escritura y 
asignación). 

La parte de declaración com¬ 
prende las líneas 20 a la 60. En ella 
hemos declarado una constante de 
tipo cadena de caracteres, y a su 
vez todas las variables que hemos 
usado durante el programa. 

Todas las variables son de tipo 
real. 

La parte principal del programa 
(cuerpo) comprende las líneas 70 a 
la 280. Lo primero que deberemos 
tener en cuenta para este programa 
es que la raíz cuadrada tiene que 
ser siempre positiva. Por lo tanto, 
en la variable DISCRI, efectuamos 


la operación aritmética del cálcu¬ 
lo del discriminante de la ecua¬ 
ción, con las funciones estándar 
que ya hemos explicado. Si esta 
variable DISCRI es mayor o igual 
a cero, pasamos a calcular las raí¬ 
ces de la ecuación y a imprimirlas 
(lincas 120 a 190), y en caso con¬ 
trario, imprimimos un literal indi¬ 
cando que no existen raíces reales 
para la ecuación dada. La instruc¬ 
ción ÍF será explicada en el próxi¬ 
mo capitulo. 

Por último, recordar que la ins¬ 
trucción (WR1TE(CHR{16))) es 
propia del compilador que hemos 
usado. 


m 

AC73 

t % 

RC7F 

AC88 

AC88 

RC8B 

AC91 

RCRF 

ACB6 

PEO 

RCDfl 

8:4: 

AD34 

AD3F 


|| pro|^rm ecuación; 

3® SEPARADOR»'- 


40 

50 

58 

70 

88 

98 

35 

IDA ES 
83 
L'XC 
98 
100 


URR 

A.B.CjXl.Xa:REAL; 
DISCRI:REAL; 

BESIN 

PERO (R ,6,C); 
URITE(CMRílá)); 

( URITELN('LR ECUACION 

URITELN (A: 4: 1, 'X8 + ' , 
j C ; 4 : 1) ; 

URITELN(SEPARADOR)i 
DISCRI:*SOR(B)-4*A#C 


RD77 110 
RD9D 188 
AD9D 130 
))/8 *A; 

RD09 148 
) ) /a *Ri 
RE 19 150 

DE LR ECUACION SON:') 


IF DISCRI >,8 THEN 
SEGIN 

XI:» í-B+SQRT(DISCRI 
X8:»(-B-S0RT(DISCRI 
URITELN('LAS RAICES 


RE45 

RE48 

RE60 

RE70 

3J 

AE92 

RE95 

RE98 

RE98 

AE9B 


168 

170 

180 

190 


URITELN; 
URITELN (' Xh 


,Xli7: 


888 

218 

888 

830 

840 


URITELNJ 
URITELN í 

END 


X8»' »X8:7: 


ELSE 


NO EXISTEN 


SEGIN 
URITELN; 

URITELN( 

RAICES RERLES'); 

REC1 850 URITELN 
REGI 860 END; 

REC4 870 URITELN(SEPARADOR) 

AECC 880 END. 

End AddraiS: REDI 


Ejemplo de asignación, entrada-salida de datos, declaración 
de las constantes (N = 3), variables y utilización de las 
instrucciones BEGIN-END, WR1TELN sirve para escribir 
por líneas. 


LA |C^AC^ÜN^PEOIgfi ES; 

LRs'rRICÉS DE LR ECUACION SON: 
XI» -8.688 
X8« -3.378 


l lS.S^5=i?8x? e 8í8 B E3; 

LAS"¿RICES DE LA ECUACION SON: 
X1a -0.697 
X2a -4.303 


L ?.£SÜ? c i?!»x? e 8í8 a “ 


NO EXISTEN RAICES REALES 






















Así hacemos 

la portada 


M ucho se ha hablado y se 
seguirá hablando sobre 
las capacidades gráficas 
Spectrum. Una forma 
de utilizarle al máximo 
en este sentido, es trabajar con los 
programas de diseño, cada vez más 
abundantes, y que requieren estu¬ 
dio detallado que emplazamos 
para un próximo número. Por eí 
momento, nos fijamos en uno en 
particular; El Ártist, gracias al 
cual hemos venido realizando las 
portadas de TODOSPECTRUM. 

Sea cual sea el programa elegi¬ 
do, realizar un gráfico de estas ca¬ 
racterísticas requiere grandes dosis 


de paciencia y, por supuesto, un 
boceto previo. En esta etapa inicial 
de dibujo no interviene el Spec¬ 
trum y, es más, el dibujante ni si¬ 
quiera lo conoce, concentrado en 
la tarea creadora en su estudio de 
Barcelona. Una vez realizado el di¬ 
bujo, viene la segunda parte: pa¬ 
sarlo al Spectrum. Resulta prácti¬ 
camente imposible realizar una 
copia exacta y uno de los mayores 
problemas reside en la combina¬ 
ción de tres o más colores en una 
cuadrícula o carácter. El objetivo 
es sacar el mayor provecho del 
Spectrum y del programa. 

Para ser lo más fieles posibles al 


dibujo, se siluetea en la pantalla, 
momento a partir del cual entra 
en juego el Artist. Veamos breve¬ 
mente sus principales caracterís¬ 
ticas. 

El programa permite tres modos 
de utilización; ACTIVO, para tra¬ 
zar líneas a su paso; PASIVO, para 
desplazamientos sin modificar el 
dibujo: y BORRADO, para elimi¬ 
nar el dibujo a su paso. 

El movimiento de cursar se logra 
presionando diversas teclas: (Q) 
subir, (A) bajar, (Z) izquierda, (X) 
derecha, (W) diagonal ascendente 
izquierda, (R) diagonal ascendente 
derecha y (D) diagonal descenden- 
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te derecha. El tamaño y la veloci¬ 
dad del cursor es seleccionable. 

Estos reducidos conocimientos 
de funcionamiento del programa 
son suficientes para trazar el cur¬ 
sor por la silueta previamente 
marcada sobre la pantalla, es decir, 
para memorizar los primeros da¬ 
tos. A continuación vienen los de¬ 
talles. En el caso del SANTA- 
CLAIR, inicialmente se dibujó a 
Papa Noel arrastrando un saco de 
regalos. Después vendría la ciudad 
del fondo, e! reno con el trineo, los 
Spectrum de regalo y, finalmente, 
la figura de Sir Clive Sinclair, 
quien a buen seguro se quedó con 
el saco vacío durante las pasadas 
navidades. 

El contorno o silueta de las figu¬ 
ras no encierra grandes problemas. 
El mayor contratiempo es la intro¬ 
ducción del color. El Spectrum 
sólo admite dos colores por carác¬ 
ter, pero se deja engañar un poco. 
Siguiendo los colores empleados 
por el dibujante (en base a la selec¬ 
ción que ofrece el Spectrum) se co¬ 
lorea carácter a carácter con el co¬ 
lor que mayoritariamente aparez¬ 
ca, además de la silueta dibujada 
anteriormente, la silueta carácter a 



carácter del color que toma cada 
parte del dibujo. 

Para poner el color hemos de es¬ 
tar en modo texto. Una vez aquí 
aparecerá un cursor del tamaño de 
un carácter que podemos mover 
con las teclas usuales (punto 3). Al 
mismo tiempo en las líneas de in¬ 
formación vemos el coloren el que 
dibujaremos al poner ACTIVO el 
cursor, este puede ser alterado fá¬ 
cilmente pulsando: 

6: selecciona INK 
7: selecciona PAPER 
8: BRIGHT/NO BRIGHT 
9: FLASH/NO FLASH 

Una vez que seleccionemos lo 
que nos sea necesario pondremos 
el cursor en modo ACTIVO pul¬ 
sando “1” y dejaremos ese color en 
el carácter en donde se encuentre. 
Terminado esto, tendremos que 
amoldar el dibujo inicial para 
aprovechar al máximo el color que 
corresponde al carácter. 

Ahora solamente queda delimi¬ 
tar qué zona va a ser INK o PA¬ 
PER. Nos vamos a valer de los di¬ 
bujos de la figura 1, correspon¬ 
dientes a la frente de SANTA- 
CLAIR, para verlo mejor. 

El carácter que tiene un solo co¬ 
lor no se modifica (A 1). 




Los caracteres Bl, B2 y A2 tie¬ 
nen dos colores, por lo que hay 
que elegir qué parte de ellos va a 
ser INK o PAPER. 

Para utilizar el FILL la parte a 
rellenar debe estar cerrada por to¬ 
dos sus lados y para saber qué par¬ 
tes del dibujo están en INK o PA¬ 
PER podemos utilizar el GR1D (es 
INK todo lo que aparece en ne- 
gro). 

Otro pequeño truco es utilizar la 
potencia de tos gráficos definidos. 
Para ello del modo texto volvemos 
a] menú principal y seleccionamos 
la opción UDG. Aparece un 
GR1D para diseñar gráficos y un 
papel editor, sobre el cual se des- 



'■ y n una moderna urbaniza¬ 
rá cion de las afueras de Ma- 
M ¿ drid, Víctor Ruiz desarro - 
lia su trabajo en lo que un 
joven grupo de programa- 
dores ha denominado la “Mansión 
Dínamic”, compartiendo su código 
máquina con los estudios universi¬ 
tarios. Estuvimos allí un domingo 
“que es cuando coges a todos". 

Con su Spectrum, Víctor comen¬ 
zó a trabajar con el Artist cuando 
el grupo aún no se había formado. 


“Lo hice para mí. Conocía el Paint 
Box y quería mejorarlo en aquellos 
puntos que veía flojos, especial¬ 
mente en el movimiento del cursor 
que es muy lento, así como tener la 
posibilidad de simultanear las re¬ 
presentaciones gráficas con la defi¬ 
nición de bloques gráficos". Estuvo 
cuatro meses desarrollando la 
idea, ",sin prisas, porque era para 
mí. Los mayores problemas los 
tuve con la rutina tridimensional 
3D. Cada punto son cuatro bytes y 















plaza un cursor (controles en pun¬ 
to 3) con el que pondremos o qui¬ 
taremos pixeis del GRID pulsando 
CAPS SHIFT. Una vez que nos 
convence el gráfico diseñado lo 
podemos definir en el carácter y 
banco seleccionado. 

Además de definir tenemos una 
serie de posibilidades: Rotar. In¬ 
vertir y Reflejar. 

Para introducir estos gráficos en 
pantalla volvemos al modo texto y 
seleccionamos la opción gráficos. 
Nos aparece e! cursor que contro¬ 
lamos con CAPS SHLFT y los cur¬ 
sores. Los situamos en el lugar que 
nos interesa y presionamos la tecla 
que corresponda al gráfico diseña¬ 
do. En el caso del SANTACLAIR 
las “firmas” se introdujeron de 
esta manera. 

Finalmente destacar que el Ar- 
tíst permite la impresión de "tex¬ 
tos gigantes”, así como gráficos en 
tres dimensiones. En el primer 
caso, se presiona "5” en el modo 
texto, apareciendo el cursor que si¬ 
tuaremos en el lugar donde empe¬ 
zaremos a escribir. A continuación 
presionamos “0”, introducimos el 
ancho y el alto (en caracteres) y el 
texto a insertar. En el segundo 
caso, se pueden hacer rotar los grá¬ 


ficos, sobre todos sus ejes, y acer¬ 
carlos o alejarlos (en forma de 
ZOOM), Pulsando la tecla “0”, se 
mezcla la figura con el dibujo que 
tuviéramos realizado. 


Y esto es todo. Lo más impor¬ 
tante es disponer de grandes dosis 
de paciencia. Seguro que le queda¬ 
rán preciosos. ¿Cuándo dijo que 
nos lo mandaba? 



como se guardan las pantallas para 
saltar entre mentís, la rutina que 
había realizado no cabía. Tuve que 


“Por el mismo trabajo 
haces un juego que vendes 
cinco veces más” 


ubicarla en otra dirección inferior 
pero el direccionamiento no era el 


adecuado. Cuando por fin ves rotar 
un cubito... se siente uno bien’*. 

Con ¡o que no se sentía tan bien 
es con la respuesta del público. “Por 
cada cinco juegos te piden un Ar- 
tist. No compensa hacer progra¬ 
mas de utilidades, por el mismo 
trabajo haces otro que vendes cinco 
veces más. Por eso ahora hemos 
abandonado las aplicaciones 

Una empresa de Barcelona quie¬ 
re diseñar mochilas y son precisa¬ 
mente sus posibilidades de diseño 


las que le hacen especialmente inte¬ 
resante para ellos mismos en su 
confección de carátulas y pantallas 
de los juegos que más tarde salen al 
mercado “Es muy importante la 
pantalla de carga, como se ve en 
todos los juegos de Ultímate. Si las 
pantallas son malas, algo marcha 
mal. Salvo la pantalla del Fred, 
somos los únicos que nos estamos 
preocupando por las pantallas de 
carga. Es una cuestión de imagen 
muy importante 






































Programa 

de evaluación 

escolar 


E L proceso educativo consta 
de cinco etapas: fijación de 
metas; objetivos; estrategias 
metodológicas; método, 
aprendizaje, evaluación y re¬ 
cuperación. 

No se puede pensar en la reali¬ 
zación completa de un acto educa¬ 
tivo si falta cualquiera de dichas 
etapas. Por tanto, la evaluación se 
halla integrada en el proceso edu¬ 
cativo, siendo eslabón inseparable 
de toda una cadena de actividades. 
La evaluación podría definirse 
como un proceso sistemático para 
determinar hasta qué punto los ob¬ 
jetivos educativos han sido logra¬ 
dos por los alumnos. Con lo dicho 
resulta fácil concluir que la eva¬ 
luación es un término en plena vi¬ 


gencia y de rico contenido; siendo 
un proceso no fácil pues toma en 
algunos casos significado de juicio 
a los alumnos con el fin de sólo 
medir sus conocimientos. Sin em¬ 
bargo Justifica su significado e im¬ 
portancia en los siguientes facto¬ 
res: 

— La preocupación por la efi¬ 
cacia docente, que busca obtener 
el máximo provecho de los medios 
disponibles y lograr información 
constante del proceso educativo. 

— La nueva concepción del 
rendimiento en la enseñanza. La 
evaluación es tarea más compleja 
que una simple medida. La medi¬ 
ción sólo es una fase de la evalua¬ 
ción que suministra datos, pero 
evaluar significa además emitir 


Cuando se habla de un ordenador 
en la escuela, lo primero que se 
piensa es en una clase ¡lena de 
ordenadores. 

Esto puede ser factible 
en un futuro no muy lejano. 
Por el momento.nos centramos 
en el profesor. 

Dada su longitud, disponemos de 
copias grabadas que podrá 
solicitar retirando el cupón que 
se adjunta. 

juicios de valor sobre ellos, es de¬ 
cir, obtener parámetros cualitati¬ 
vos y cuantitativos del alumno, 
consiguiendo una información lo 
más completa y objetiva posible 
que sirva de conocimiento para el 
profesor. 

— La necesidad de individuali¬ 
zación pedagógica para alcanzar la 
eficacia deseada. Es decir, los jui¬ 
cios valorativos que se emiten so¬ 
bre las mediciones han de estar ba¬ 
sadas en la personalidad del alum¬ 
no y en las necesidades sociales. 

— La necesidad de superar la 
ineficacia del sistema clásico de 
control. Este, basado sólo en exá¬ 
menes conlleva, tanto en la prepa¬ 
ración del examen como en la cali¬ 
ficación, un alto nivel de subjetivi- 


3 


i 





dad, además de obligar al alumno 
solamente a pasar la prueba, y no a 
estimular su formación individual. 

En definitiva, la evaluación ha 
de tener los medios adecuados, que 
los hay actualmente (aunque no 
siempre se usan), para prestar 
atención continua, racional, espe¬ 
cífica y objetiva hacia el alumno. 

Instrumento de evaluación 

Los instrumentos de evaluación 
deben estar adaptados a cada etapa 
del sujeto. Así como para el prees¬ 
colar, ciclo inicial y ciclo medio es 
interesante un control basado en la 
observación, entrevistas, pruebas 
orales (sin carácter de examen), e 
incluso algún control escrito, aun¬ 
que éstos incluyan un cierto nivel 
de subjetividad, son los instrumen¬ 
tos más provechosos y adaptables 
para estas etapas, en el ciclo supe¬ 
rior y otras etapas posteriores 
(BUP, COU, universitarios, etc,) se 
pueden utilizar los ya citados, 
siempre con menos intensidad, 
pero sobre todo los trabajos en gru¬ 
po, temas a desarrollar y los test. 
Debe tenerse en cuenta que depen¬ 
diendo del grupo de sujetos, estos 
instrumentos han de ser flexibles y 
acomodarse al nivel de desarrollo 
de comprensión lectora. Así, por 
ejemplo, pueden utilizarse pruebas 
tipo test en sujetos que se encuen¬ 
tren en la etapa final del ciclo me¬ 
dio, o, por el contrario, no poderse 
utilizar los test en sujetos del ciclo 
superior. 

De entre todos los instrumentos 
de evaluación, el test proporciona 
una información más completa y 
objetiva del sujeto. Aunque su ela¬ 
boración, para que sea eficaz, es 
complicada para el profesor, lo 
que supone una alta preparación 
por su parte. Sus ventajas son múl¬ 
tiples e innegables: 

— Permiten una rápida correc¬ 
ción y calificación: plantillas o 
computadoras. 

— Posibilidad de realizar con¬ 
troles con frecuencia. 

— Los resultados son compara¬ 
tivos, puesto que todos los sujetos 
se juzgan con iguales criterios. 

— Los resultados son indepen¬ 
dientes del estado de ánimo y sub¬ 
jetividad del profesoral corregir. 


1135-1140. Subrutina de entra¬ 
da válida en un INPLT. 

1145-1150. Subrutina de orifi¬ 
cación en una entrada por INPUT. 

1162-1173. Dimensión* todas 
las variables con subíndice que se usarán 
en Los cálculos, excepto F() y G{)* 

1174-1320, Entrada de Las res¬ 
puestas de cada item para cada sujeto. 

1400-1450, Presentación de pa¬ 
rámetros. 

1500-1735, Cálculo de los acier¬ 
tos, errores, ñutos y de La puntuación de 
cada sujeto, 

2000-2240. Cátculo de la Z de 
cada sujeto. 

3000-3265, Cálculo de los acier* 
tos,, errores* nulos y de la puntuación de 
cada sujeto. 

3400-3675* Cálculo de la Z de 

cada sujeto. 

3800-3885* Cálculo del coefi¬ 
ciente de correlación. 

3890. Cálculo del coeficiente de 
fiabilidad. 

4000-4070* Rutina para ordenar 
las puntuaciones en orden decreciente. 

4085-4140. Calcula los sujetos 
en orden decreciente de puntuación. 

4160* Guarda el 27 por ciento de 
sujetos con mayor puntuación. 

4165-4170. Guarda el 27 por 
ciento de sujetos con menor puntuación. 

4300-4370* Cálculo de As, Ai 
para cada item. Cálculo de los errores. 

4380-4440. Cálculo de los índi¬ 
ces de validez. 

5000-5200, Presentación del 

menú principal por pantalla. 

5500-5700. Presentación del 

menú de tablas por pantalla. 

6100-6160. Presentación de La 
tabla de aciertos, errores y nulos. 

6200-6260. Presentación de la 
tabla de puntuación. 

6300-6380* Presentación de La 
tabla de la Z. 

6400-6470* Presentación de la 
tabla de aciertos, errores y nulos por se¬ 
ries. 

6500-6570. Presentación de la 
tabla de puntuación por series. 

6600-6690. Presentación de La 
tabla de La Z por series. 

6700-6760* Elección del tipo de 
listado. 

6770-6813. Entrada por IN- 
PLJT del sujeto por donde comienza el 
listado U, y del sujeto en que termina, 

H. 


6814-6830. Presentación de co¬ 
mandos por pantalla. 

6835-6890. Presentación del 

Listado por sujeto por pantalla. 

6891-6899. Bifurcación según 
el comando seleccionado para el listado 
por sujeto. 

6900-6955. Entrada por IN- 
PUT del item por donde comienza el lis¬ 
tado, U, y del item en que acaba, H* 

6960-6990. Presentación por 
pantalla del listado por item. 

6991-6999* Bifurcación según 
el comando seleccionado para el listado 
por item. 

7800-7880. Coeficiente de co¬ 
rrelación y del coeficiente de fiabilidad. 

7900-7940* Copiar por impreso¬ 
ra de los coeficientes anteriores. 

8200-8300. Presentación por 
pantalla de los datos iniciales y La no- 
menclaturade los índices de validez. 

8310-8360* Presentación de La 
tabia con los índices de validez. 

8720-8760. Opción para cam¬ 
biar ios datos a otro sujeto. 

9000-9125* En caso de verifi¬ 
carse la grabación de datos, dimensión* 
y define las variables que se van a grabar 
y da entrada por 1NPLJT del nombre con 
que quiere grabarse el fichero. 

9130* Grabación datos* 

9140-9160* Da opción a verifi¬ 
car los datos grabados. 

9170-9220. Verifica los datos 

grabados. 

9400-9490* En caso de verifi¬ 
carse la carga de datos* i nidal iza todas 
Las variables y dimensión a las que van a 
cargarse. 

9500. Carga los datos en Ja mis¬ 
ma secuencia que fueron grabados. 

9510-9560. Definición de las 

variables que va a emplear el programa, 
devolviendo el control del programa a la 
línea 1171 después de llamar a la subru¬ 
tina que calcula el 27 por ciento de los 
sujetos. 

9700-9750, Presentación por 
impresora de cualquiera de las tablas. 

9800-9840* Subrutina para de¬ 
tener una tabla durante su presentación, 

9850-9890* Subrutina para veri¬ 
ficar si se quiere continuar con las opcio¬ 
nes 4,5, ó, 7 u 8 del menú principal* 

9900-9925* Cálculo del 27 por 
ciento de spjetos. 

9930-9970* Cálculo del espacio 
libre de memoria y el número máximo 
de ítems que se pueden introducir. 











— Eliminan multitud de facto¬ 
res ajenos al contenido mismo de 
las pruebas, presentación, caligra¬ 
fía, estilo, limpieza, etc., que se 
pueden evaluar con otros instru¬ 
mentos. 

— Ofrecen la posibilidad de cu¬ 
brir la materia en su máxima am¬ 
plitud. 

Adentrándonos un poco en el 
tema que nos ocupa, tres son las 
condiciones que deben adornar al 
test: validez, fiabilidad y tipifica¬ 
ción. 

La validez se refiere al grado de 
exactitud con que el test mide lo 
que pretende medir. La fiabilidad 
se refiere a obtener resultados se¬ 
mejantes aplicando ía prueba en 
iguales condiciones para los suje¬ 
tos. Finalmente, la tipificación se 
refiere a una escala o baremo que 
permite interpretar el significado 
de los resultados. Para ello se pue¬ 
den lomar distintos criterios. 

El programa determina estas tres 
condiciones primordiales además 



de ofrecer otros datos que serán de 
gran interés para el profesor. 

Evaluación de una prueba 
tipo test 

Las preguntas de una prueba 
tipo test se denominan ítems, y por 
lo general suelen ser pares. Cada 
ítem se compone, al menos, de dos 
respuestas posibles (RP). Para cada 
item: 

— Se considera acierto (A), can¬ 
do se contesta la/s respuesta/s co- 
rrecta/s. 

— Se considera nulo (N), cuan¬ 
do no se contesta. 


— Se considera error (E), en 
cualquier otro caso. 

Una vez hecho el recuento de 
aciertos, errores y nulos de cada 
sujeto se calculan los parámetros 
en base a dos clasificaciones: por 
sujeto y por ítems. 


POR SUJETO 
1. Puntuabilidad (P). 


P = A - 


E 

RP- 1 


2. Puntuabilidad tipificada o ti¬ 
pificación (Z). 

Z= 

op 

Pi - Puntuabilidad del sujeto. 

iPi 

P = Puntuabilidad media = 

N 

op — Desviación típica de las pun- 
tuabilidades. 

S(Pi-P) * I 2 * * S 


N = N.° total de sujetos. 


0>REM 

**************************** 

* * Juan Carlas Fdes, Romero 

I * 17 ■'9/1984 

* «#U****#**U ******** ******* 

* 

1 REM PARA GRABAR EL PROGRAMA 
«USA i SAVE "nombre 11 LIME i O 
I»********.********* ********* 

10 PAPER I: INK 7¡ FLASH O: BR 
IGHT 0: OVER Oí INVERSE Os BORDE 
R 1: CLS 

20 PRINT ’ INK *5 INVERSE 1 ; 11 
PEDAGOGIA 
30 PftINT A7 10*7,1" EVALUACION 
DE UNA "; AT 12*12;" PRUEBA ";AT 
14,11!" TIPO TEST l¡ 

40 POR F=19 TO 21s PRINT AT F, 
Os PAPER Sí" 

NEXT F 

50 PRINT AT 20,4; PAPER 3; INK 
Oí BRX6HT 1: OVER 1; M FIABILID 
AD V VALIDEZ h 

60 PGKE 23658,Si FüK£ 23609,20 
70 PAUSE 500 
BO LET D-6553Ó-U5R 7962 
90 IF D<15000 THEN GG TQ 5000 
100 CLS 

110 PRINT 11 QUIERES CARGAR DATO 
3, S/N ? 

115 FOR F-0 TQ 50: NEXT F 
120 IF INKEV$“"S ,S THEN GG TO 9 
450 

130 IF INKEY*“ ir N M THE Ni GG TO 1 

000 

140 GO TO 120 

1000 REM ** ENTRADA DE DATOS ** 
1005 PAPER ls INK 7: BURDER 1: C 
LS 

1010 LET J=ü 

1015 PRINT AT 2,5* J, No. DE SUJETO 

S = "5 


1020 INF'UT "Introduce e] No. de 
SUJETOS 11 s UNE ISe LET D=0 
1025 <30 SUB 1135: IF D=1 THEN G 

□ TO 1020 

1030 PRINT VAL 11 " 

1035 50 SUB H45¡ IF D=1 THEN G 

0 TQ 1045 

1040 GQ TO 1010 

1050 LET 3=VAL I* 

1060 PRINT AT 3,5?“No. DE ITEMS 
_ < 

1065 INPUT "Introduce el No. de 
ITEMS 11 ; LINE I %: LET B=0 
1070 GO SUB 1135: IF D=1 THEN G 
P TQ 1065 

1072 GG SUB 9900 

1073 IF J=1 THEN PRINT AT 20,0; 
INVERSE ls" MAXIMO = 11 iH: lh "; AT 
3,22;í GÜ TÜ 1065 

1075 IF VAL I*>H THEN CLS : GD 
TQ 1000 

1080 PRINT VAL X*;" 

1085 Gü SUB 1145: IF D=L IBEN 6 

□ TO 1095 

1090 GO TO 1060 

1095 LET I=VAL I* 

1096 PRINT AT 20,0;" 

N 

UOO PRINT AT 4,0; "REBP, POS. PO 
R ITEM - 

1105 INPUT "Introduce el No. de 
respuestas posibles en cada ITE 
M ,f ; LINE Ifí LET D=Q 
1110 GO SUB 1135: IF D-l THEN G 
Ú TO 1105 

1115 PRINT VAL I*;" " 

1120 GÜ SUB U45? IF D=1 THEN G 

□ TO 1130 

1125 GÜ TO UOO 

1130 IF VAL !*<2 THEN GO TÜ 110 
O 


1132 LET RP=VAL I* 

1133 GG TO 1170 

1135 IF CODE I*=0 THEN LET D=it 
RETURN 

1137 FQR F=1 TO LEN l%i IF CODE 
I*(F><48 DR CODE U(F}>57 THEN 
LET D=ls RETURN 

1138 NEXT F 

1139 IF D-0 THEN IF VAL I*<2 TH 
EN LET D¡=ii RETURN 

1140 RETURN 

1145 ROKE 23650,8: PRINT #0;" ES 
CORRECTO S/N ? 11 
1147 IF INKEYf="N" THEN RETURN 

1149 IF INKEY** k, S" THEN LET D*1 
t RETURN 

1150 GO TO 1147 

1162 REM *4 DIM. VARIABLES ** 

1170 DIM IÍS,I) 

1171 DIM A<SU DIM EíSi: DIM NCS 
)t DIM FíS): DIM 2 CS> s DIM X<S) : 

DIM V<S)s DIM YfS>¡ DIM WÍS>: D 
IM 8<S); DIM QíSU DIM RÍSU DIM 
MÍS3; DIM HS1: DIM H<SF> : DIM 
L <SF í i DIM BÍI>: DIM C(I>: DIM J 
ÍIÍ : DIM MI): OIM Oí H 

1172 IF D~2 THEN GU TG 1180 

1173 IF D-945Q THEN GO TO 1310 

1174 REM ««ENTRADA RESPUESTAS ** 

1175 LET U-l: LET H^S 

1180 FOR F=1R TO 20 s PRINT AT F, 
O; PAPER 3;" 

"i NEXT F 

1185 INPUT PAPER 5; INK 1;"REP£ 
RENOIA DE LOS DATOS?íIB man)"j L 
INE Rl: IF LEN R*>18 THEN 60 TO 

1185 

1186 IF CODE R^=0 THEN LET 8*=" 
Sin Referencia 11 

1187 PRINT AT 20,0; PAPER 5; INK 
i¡" REFERENCIA DE LOS DATOS i 





















Se aplica el baremo elegido a la 
Z. Uno de los criterios más usuales 
es el siguiente: 

2 < Z < 2 5 Sobresaliente/9, 10 

\ 5 <Z¿\5 Notab,e/7 - 8 
0.5 < Z ^ I Bien/6 
0 ^ Z ^ 0.5 Suficiente/5 
Z < 0 Suspenso/. 

3. Se dividen los ítems en pares 
e impares, formándose así dos se¬ 
ries, y se calcula la P y la Z en cada 
una de las series. 

Se obtendrá: 

Pi = Puntuación del sujeto en la 
serie impar. 

Pp = Puntuación de! sujeto en la 
serie par. 

Zi = Puntuación tipificada del su¬ 
jeto en la serie impar. 

Zp = Puntuación tipificada del su¬ 
jeto en la serie par. 

Para calcular la Fiabilidad, pri¬ 
mero se obtiene el coeficiente de 
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correlación, con el que después ob¬ 
tener el coeficiente de fiabilidad. 

1. Se calcula el coeficiente de 
correlación (R). 

R= S(ZixZp) 


2. Cálculo del coeficiente de 
fiabilidad (CF). 

2x R 

cf=- T+r~ 

POR ITEMS 

En el caso de trabajar con clasifi¬ 
caciones por ítems, primero se ha¬ 


lla el 27 por ciento de sujetos con 
mayor puntuación y el 27 por 
ciento con menor puntuación. Y 
después se determinan para cada 
ítem los aciertos del 27 por ciento 
de S. con mayor puntuación, y del 
27 por ciento de S. con menor 
puntuación, As y Ai, respectiva¬ 
mente. 

Los índices que se dan para cada 
ítem son el de facilidad, discrimi¬ 
nación, discriminación máxima y 
de eficacia. 




Sí na dí se a teclear el programa, 
disponemos, de una copia en cassette 
al precio de 200 pías* 
Solicítela a TODOSPECTRUM* 
Brava Murillo+ 377, 5* c A, 
adjuntando el presente cupón. 




r-\ 

SUSCRIBASE 
POR TELEFONO 

* más fácil, 

* más cómodo, 

* más rápido 

1 

Telf. (91) 733 7969 

7 dias por semana, 24 lloras a su servicio 

SUSCRIBASE A 

lbdospectrun 

4 
























































IJ $ PAPER 2; INK 7;R$ 

UBB POKE 2365S,S 
1190 PRINT AT 5*0; PAPER 4; INK 
O; BRIGHT 1;" PULSA : "; INVERSE 
li" <A> "j INVERSE O; 11 sí es AC 
IERTO M ; AT 7,9* INVERSE 1; 11 <£> 

" ¡I INVERSE O; 11 si es ERROR "; AT 
9,9; INVERSE i;" <N> INVERSE 
O; 11 si e5 NULO ■■ 

1200 FOR J=U TÜ H 

1210 PRINT AT 12,1; 1NVERSE 1|" 

SUJETO No."*J; 11 H 

1220 FüR F-l TQ I 

1230 PRINT AT 14,1*"ITEM No. M ?Fj 
1240 PRINT AT 18,12; PAPER 3; 11 

K 

1250 IF INKEY*=”" THEN SO TQ 12 
50 

1260 IF INKEY$="A" THEN LET IÍJ 
, F) — i ¡ LET ACIERTO"! GQ TO 1 

295 

1270 IF INKEY*""E" THEN LET KJ 
,F)=-l! LET I*"' 1 ERROR M t GÜ TO 
1295 

1280 IF INKEY*="NT THEN LET 1 tJ 
,n-0: LET I4="NULÜ "* GÜ Tü I 
295 

1290 GD TO 1250 

1295 PRINT AT 18,12; PAPER 8; IN 
K 6; l*i BEEF ,3,íC0DE It )/3 
1300 NEXT Fs NEXT J 
1305 IF D=2 THEN SO TO B720 
1310 FRINT AT 18,0; FLASH 1; PAP 
ER B;" PREPARA CAFE MIENTRAS CAL 
CULO " 

1320 FOR F^l TO 400i NEXT F 
1400 REM ***** PARAMETROS ***** 
1410 PAPER 6: INK O: BÜRDER 6: C 
LS 

1420 PRINT INVERSE 1J" P A 

RAMETROS 

1430 PRINT AT 3,1;” S = SUJETO' 1 ; 
AT 3, 16| ,J I * ITEM"; AT 4,1;"RP = 
RESP, PD5.PDR ITEM" 

1440 PRINT AT 6,0; PAPER 3; INK 
O; BRIGHT 1;" F I A B I L 

I D A O 11 í PRINT A = Aci 

er t os,E=Errores ,N=Nu1ds "¡ PRINT 
P = Puntuabílidad ; PRINT kl l 
=» Puntuaba 1i dad TIPIFICADA" 

1445 PRINT '" R = Cosí i ti ente de 
Cerrelación"; PRINT "CF = Coefi 
tiente de Fiabilidad" 

1450 PRINT * PAPER 3; INK Oj BRI 
GHT 1| H VALIDEZ 

PRINT I*F- - Indice 
de Facilidad"; PRINT " I.D, = I 
ndice de Discriminación": PRINT 
= I.D. Maw i itio": PRINT ” I 
,E, - Indice de Eficacia" 

1500 REM ***** CALC. RUNT, ***** 

1510 LET J=0 

1520 LET J-J+ls LET F=0 

1530 LET F-F+ 1 

1540 IF I(J,FJ“1 THEN LET A í J > = 
A í J í + I 

1550 IF I<J,F> =-l THEN LET EÍJ) 
-EíJK+l 

1560 IF I (J , F > “O THEN LET N<J3 = 
NÍJ)+1 

1570 IF J=5 THEN IF F~I THEN L 

ET J^Oí SO TO 1710 

1580 IF F“I THEN GO TQ 1520 

1590 GO TO 1530 

1710 LET J=J+1 

1720 LET P<J)=A(J)-ÍE<J>/<RP-n > 
1730 IF J-S THEN LET J=Os SO TÜ 
2010 

1735 GÜ TD 1710 

2000 REM ** CALC. DE Z ** 

2010 LET PRM=0: LET DIF=0 

2020 LET J-J + I 

2030 LET PRM=FRM+P(J) 

2035 IF J-B THEN LET J=0: SO TO 
2050 


r 1 

MO. DE SUJETOS = 

NO. D£ rr^MS j'.j * 4-0 

RSSFUESTBS POSIBLES POP ITEM* 4 

Lo*, ind ic«£ de Uá» Lides: dan 

para cada IV** y a-on : 


iaa «inig*3SW| 

aBKSCrfríirnra-í 
w^mj^criFrw-rHi -* 1 3¡ 


2040 GO ÍO 2050 
2050 LET PUM=PRM/5 
2070 LET J=J + 1 

2080 LET DÍF=DIF+ í(P í J > —PUM í * (P ( 

j>-pum ) 

2085 IF J=S THEN LET J=Oi GO TQ 
2210 

2090 GO TO 2070 

2210 LET 5IGMA=SQR ÍDIF/S) 

2215 IF SIBMA=0 THEN LET SIGMA= 
IE-33 

2220 LET J-J + l 

2230 LET Z (Jí-tPÍJ^PUM)/5I&MA 
2235 IF J=G THEN LET J=Oa GQ TÜ 
3050 

2240 GD TG 2220 

3000 REM ** CALC. PUNT. SERIES** 
3050 LET J-J+li LET F=-i 
3060 LET F=F+2j IF F>I THEN GO 
TQ 3095 

3070 IF í í J , F) = 1 THEN LET XtJ>- 
XÍJ>+1 * 

3080 IF I £J,Fí =“■ 1 THEN LET Y(JÍ 
=Yt J> + 1 

3090 IF IU,F)-0 THEN LET S(J>- 
S í J> +1 

3095 IF J-S THEN IF F>=I THEN 

LET J-Os GO TO 3120 

3100 IF F>*I THEN GO TO 3050 

3105 GÜ TO 3060 

3120 LET J = J + i : LET F^=0 

3125 LET F=F+2a IF F>I THEN GO 

TD 3150 

3130 IF I<J,F>=1 THEN LET V(J3~ 
VíJJ+l 

3140 IF I<J 5 F>='1 THEN LÉT WÍJ^ 
=N<J1+1 

3150 IF J=S THEN IF F>=I THEN 

LET J=0; GÜ TD 3230 

3155 IF F>=I THEN GO TO 3120 

3160 GO TO 3125 

3230 LET J=J+1 

3240 LET Q(J> «X <J>-(Y(J>/(RP“lí > 
3250 LET R<J>=VíJ> —ÍW<J>/íRP-1)) 
3260 IF J=S THEN LET J^O; GÜ TÜ 
3430 

3265 GÜ Tü 3230 

3400 REM *** CALC. I SERIES **** 
3430 LET PRQ=0: LET PRR=Oi LET D 
IFQ=0: LET DIFR=0 
3440 LET J“J+1 

3450 LET PRQ=PRQ+QÍJ)s LET PRft“P 

RR-t-R «J> 

3460 IF J=S THEN LET J*0; 60 TO 
3500 

3470 GO TD 3440 

3500 LET F’UMQ*PRQ/S: LET PUMR=PR 

R/S 

3510 LET J=J+1 

3520 LET DIFQ=DIFQ+ÍÍQÍJÍ“PUMQ>* 
(Q ÍJ 3 -PUMO ) 

3530 LET DIFR^DIFR+Í <R (, J í-PUMR5 * 
<R(J>“PUMR)? 

3540 IF J=S THEN LET J-Os GÜ TO 
3610 

3545 GO TD 35 iO 

3610 LET SIGI-SGR (DIFQ/S): LET 
SIGP-SÜR ÍDIFR/S) 


3620 IF SIGI=0 THEN LET SIGI-1E 
“33 

3630 IF 5IGP=0 THEN LET 3IGP=1E 
^33 

3640 LET J-J+l 

3660 LÉT MÍJ)-(QíJK-PÜMQ)/SIGI: 

LET T ( J 1 - < R f J > -PUMR > / BIGF' 

3670 IF J=S THEN LET J=Oi GO TO 
3840 

3675 GÜ TO 3640 

3000 REM ** CALC. CÜEF. CQRR. ** 

3840 LET PCC-0 

3850 LET J=J+1 

3060 LET FCC“PCC+ÍMí J) *TíJ)) 

3865 IF J«S THEN GÜ TD 3&B0 
3870 GÜ Tü 3850 
3000 LET R-PCC/S 
3885 IF ft—1 THEN LET CF—lE36s 
GQ TO 4000 

3090 LET CF= < 2*R)/(1+R) 

4000 REM ** ORDENA PUNTUAD, ** 
4010 DIN F(S); DIM G<5) 

4020 FOR J-l TQ S: LET FÍJ)-P(J) 
s NEXT J 

4030 LET J — 11 LET C-0 

4040 IF F(JKF(J + U THEN LET D=- 

F í J >; LET F<J>-F<J + 1>; LEI F<J + 1 

J=De LET C=^C+1 

4050 LET J=J+1 

4055 IF J«S THEN IF C-0 THEN L 

ET J-0; GÜ TO 4005 

4060 IF J-S THEN GO TO 4030 

4070 GO TO 4040 

4005 LET J-J+lr LET F-0 

4090 LET F-F+i 

4100 IF FÍJ)=P<F> THEN GO TO 41 

30 

4101 GO TD 4105 

4102 LET G<J>=F 

4105 IF J=S THEN IF F=5 THEN G 
□ Tü 4150 

4H0 IF F=S THEN GO TO 4085 
4120 GO TO 4090 

4130 FDR K=1 TD J-lt IF G tK)«F T 

HEN GÜ TÜ 4105 

4140 NEXT Kt fiü TO 4102 

4150 REM *277. S.con M.y m.PUNT.* 

4160 FOR J=1 TD SFt LET HÍJÍ-GÍJ 

)s NEXT J 

4165 LET K“1 

4170 FOR J-S TO S-SF+l STEP -ls 
LET L íK)—G íJ)é LET K=K+1: NEXT J 
4300 REM ** CALC. IND. VAL. ** 
4310 DIM F(II: DIM G(I> 

4320 LET F*0 

4325 LET F-F+li LET K-0 

4330 LET K-K+i 

4340 IF THEN LET 

B(F)=-BíF1+1 

4330 IF (I(LÍK),F)-1> THEN LET 
CÍF>~C<F>+1 

4353 IF 1 í H <K>,F> — 1 THEN LET O 
ÍF)-O(F)+1 

4356 IF I(L(K)THEN LET O 
ÍFÍ “CMFI+1 

4360 tF F=I THEN IF K-SF THEN 

LET F^O; GO TO 4380 

4365 IF K-SF THEN GÜ TO 4325 

4370 GD TD 4330 

43S0 LET F-F+l 

4390 LET F(FÍ-50*(BÍF)+C(FJ)/SF 
4400 LET GÍF)=50*CB(f)-CtF)í/SF 
4410 LET J <F> =2*F(F> 

4420 IF J <F>-O THEN LET KÍF)-1E 
33p GO TD 4435 
4430 LET K ÍF)“6 <F>/J ÍFÍ 
4435 IF F-I THEN GO Tü 5010 
4440 GÜ Tü 4380 

5000 REM ** MENU ** 

** PRINCIPAL** 
*********************** 
5010 POKE 23658,0 
5020 INK 7: BRIGHT Os PAPER li B 
ÜRDER 1: CLS 

5030 FDR F=0 TO 2s PRINT AT F,0| 
PAPER 2; *' 







M : NEXT F 

5040 PRINT AT 1 p 0; PAPER 7; INK 
2; " MENU PRINCIPA 

L 11 

5050 PRINT ? * INK 5s INVERSE i; ' 1 
REFERENCIA í 14 ;: PRINT PAPER 2 
;P* 

5040 PRINT AT 7,0; BRIGHT 1? INK 
¿i 11 i,- PAPER 4; INK O; 11 MEN 
U de Tablas 

5070 PRINT AT 9,0; BRIGHT 1; INK 
6| w 2,- "i PAPER 4; INK O; " Coe 
fielentes de Fiabilidad” 

5080 PRINT AT 11,0$ BRIGHT 1 3 IN 
K 6;” 3.- «| PAPER 4$ INK O; ” In 
dices de Valides ” 

5090 PRINT AT 13,0; BRIGHT 1; IN 
K 6;” 4. *** ■■* PAPER 4; INK O;■■ Ca 
mbiar Datos 

5100 PRINT AT 15,0| BRIGHT 1$ IN 
K 4)“ 5.- "1 PAPER 4$ INK O; ■■ Or 
abar Datos " 

5110 PRINT AT 17,Oj BRIGHT 1; IN 
K 4} 11 4.“ "3 PAPER 4? INK O; " Ca 
rgar Datos 

5120 PRINT AT 19,0; BRIGHT 1$ IN 
K 6f” 7, — 44 ; PAPER 4; ENK Oj ” Re 
inicio 11 

5130 PRINT AT 21,0; BRIGHT 1; IN 
K 6| 11 8.- "| PAPER 4; INK 0; " Sa 
lida de Programa 

5140 PRINT #0; 0RIGHT 1; INK 6| n 
Pulsa fu opción 

■i 

5145 POKE 23540,0$ BEEP ,15,0: B 
EEP .3,18 

5150 LET J=PEEK 23540* IF J-0 TH 
EN GO TG 5150 

5160 !F J<49 GR J>56 THEN GO TG 
5150 

5170 LET IS-CHR* J 

5180 POKE 23540,0 

51B2 PRINT AT 2*<J-48Í+5,0? INK 

4; OVER 1$ FLASH 1¡» H | INVE 

RSE 1? BRIGHT lf INK 4| M 

ii 

5184 FOR J-0 TO 2* BEEP .3,0* PA 
USE 20s NEXT J 

5190 IF I**"l" THEN CLS : GO TG 
5520 

5192 IF I*«”7" THEN CLS * PRINT 
AT 3,3| FLASH 1|" LOS DATOS SER 
AN DESTRUIDOS 41 : LET U-=72t LET C 
«20: LET K=B: GG TO 9050: RUN lO 

00 

5194 IF I*-”8 M THEN CLS * PRINT 
AT 3,3; FLASH l|" EL PROGRAMA S 
ERA DESTRUIDO ": LET U“76: LET C 
-20i LET K-Bi GO TO 9850: NEW 
5200 GO TO 7000+(VAL ¡*>#400 
5500 RErl ** MENU *1 

** D E TABLAS#* 

5510 PAPER li INK 7: BORDER 1: C 
LS 

5520 FOR F-0 TO 2* PRINT AT F,0$ 
PAPER 7i" 

11 : NEXT F 

5530 PRINT AT 1,0; PAPER 2; INK 
7$" MENU DE TABLAS 

ip 

5540 PRINT AT 4,0? PAPER 6; INK 
Op* i.- M ? PAPER 4; 11 Tabla de Re 
apuestas 

5550 PRINT AT 4,0; PAPER 4; INK 
O; 11 2,” PAPER 4; ” Tabla de Pu 
ntuabi1 i dad 

5570 PRINT AT 9,0; PAPER 4$ INK 
Os" 3.- H t PAPER 4;" Tabla de la 
s 1 +> 

5500 PRINT AT 10,0} PAPER 3; INK 
O; BRIGHT 1; M P0R SERIES DE ITEM 
5(IMPAR V PARÍ" 

5590 PRINT AT 12, Oj PAPER 4: INK 
0; 1J 4* — PAPER 4;" Tabla de R 

espuestas n 

5400 PRINT AT 14,0; PAPER ó; INK 


* 


O;" 5.- PAPER 4; 11 Tabla de P 
untutabi 1 i dad " 

5410 PRINT AT 16,0; PAPER ój INK 
0 .h 6i _ h. papéR 4;” Tabla de 1 

as Z * 

5420 PRINT AT 18,0; PAPER 4; INK 
O; " 7.- PAPER 5; *' L T S T A 

DOS M 

5430 PRINT AT 20,0; PAPER 4; INK 
0;“ 8.- "¡ PAPER Si 11 MENU P 
R I N C 1 PAL" 

5435 BEEP .3,10 

5640 PRINT# O; INK 6; BRIGHT 1; ” 
fuLea tu Opción 

#1 

5650 LET J-PEEK 23560: IF J-0 TH 
EN GÜ TO 5650 

5660 IP J< 40 OR J >56 THEN GO TO 
5650 

5670 LET I*-CHR* J 

5680 IF I*="9" THEN BEEP *2,Oí 

CLS * GO TO 5030 

5690 IF I*< > ” 7 " AND I*O u B u THEN 
DPENtt5,”S”: LET RUTA=5 
5495 BEEP . l,18i BEEP .3,0 
5700 GO TO 6000+ÍVAL 1*Í*10Q 
6100 REM ** T. DE A.,E,,N, ** 
6110 PAPER 3: BURDER 3: CLS : PR 
INT ttRUTA; PAPER 6; INK O? 11 TABL 
fr DC- ACIERTOS*ERRORES,NULOS 1 " 

6115 LET D-6110í LET U=252: LET 
C“23 

4120 FOR J-i TO 8 

6125 POKE 23692,-1 

6130 PRINT # RUTAi PRINT ttRUTA; 1 

NVERSE 1; " SUJETO No»"fJl PAPÉR 

2; INK 7: TAB 14; 11 ñ="; A (J1? TAB 20 

; "E-" ; E (J 3 5 TAB 24; "N=s rf ;N(Jí ; TAB 

31 j” " 

4135 GO TO 9810 
6140 NEXT J 
6160 GO TG 9700 

6200 REM ***** T, DE PUNI. **** 
6210 PAPER 3: BORDER 3: CLS s PR 
INI PRUTA; PAPER 6; INK O;* P 
UNTUABI L I DAD 
4215 LET D=4210¡ LET U-96: LET C 
-24 

6220 FDR J-l TO S 

4225 POKE 23692,-i 

6230 PRINT # RUTA: PRINT 4RUTA; I 

NVERSE 1 ¡ fl SUJETO No.”;J, PAPER 2 

; INK 7; l, P * »;P<J);TAB 31; " " 

6235 GO TO 9810 

6240 NEXT J 

6260 GO TO 9700 

6300 REM ***** T. DE l ***** 

6310 PAPER 3í BORDER 3í CLS : PR 

1NT ttRUTA: PRINT ttRUTA; 41 PUNTUAB 

ILIDAD MEDIA - "*PUM 

6315 LET D=ó31O: LET U*226i LET 

C=24 

6320 PRINT tt RUTA: PRINT #RUTA; " 
DESVIACION TIPICA = ";SIGMA 
6330 PRINT ttRUTA: PRINT ttRUTA 3 F 
APER 6; INK O;" TABLA DE 

LAS Z " 

6340 FOR J=1 TD S 


6345 POKE 23692,-1 
6350 PRINT tt RUTA: PRINT RUTA; I 
NVERSE i? JI SUJETO No.";J, PAPER 
2: INK 7; M Z = ": INT í 2( J 3 * IES)/1 
ÉB:TAB 31;" " 

6360 GG TO 9810 
6370 NEXT J 
6360 GO TO 9700 

6400 REM *T ,DE A. ,E.,N. SERIES# 

6410 PAPER 3: BORDER 3; CLS : PR 

INT # RUTA; PAPER 6: INK O ; " TABL 

A DE ACIERTOS, ERRORES, NULOS 

DE LAS SERIES DE ITEMS 

6415 LET D=6410: LET U^6Q: LET C 

-25 

6420 PRINT * RUTA; PRINT ^ RUTA; I 
NVERSE 1; «SUJETO 11 : PRINT 4RUTA; 
INVERSE i ; "No - 11 ; INVERSE 0; TAB 7 
; INVERSE 1; PAPER 2; 11 IMPAR " ; 
INVERSE O? PAPER 3;TAB 21; INVER 
SE 1; PAPER 2; 11 PAR " 

6430 FOR J=i TG S 
6435 POKE 23692,-1 
6440 PRINT #RUTA: PRINT i* RUTA; I 
NVERSE 1;J; INVERSE O; ** 11 ; INVER 
SE 1; PAPER 2; INK 7; TAB 3; ,, A= ,Í ; 
XíJMTAB 8; "E-"; Y(JL;TAB 13;"N=" 
;SíJí; INVERSE O;TAB 18; INVERSE 
1; "f\=” : V (Jí ; TAB 23; "E= ,p ;W < J> ; TA 
B 28? “N—";N (J ?-S < J > 

6450 GO TO 9S10 
6460 NEXT J 
6470 GO TD 9700 

6500 REM ** T.DE PÜNT. SERIES #* 

6510 PAPER 3: BURDER 3: CLS ; PR 

INT #RUTA; PAPER 6; INK O;“ P 

UNTUABI LI DAD 

DE LAS SERIES DE ITEMS 

6515 LET D-651Ü; LET U*l60i LET 

C=25 

6520 PRINT-# RUTAi PRINT #RUTA: P 

RINT frRUTA; INVERSE 1 ; M SUJETO N 

□ , INVERSE O; " K1 1 INVERSE 1; 

PAPER 2; INK 7; “ IMPAR 11 ; INVERS 

E Oí PAPER 3; " ,É ; ¡NVERSE 1; 

INK 7; PAPER 2| " PAR 11 

4530 FOR J=1 TO S 

6535 POKE 23692,-1 

6540 PRINT ttRUTA; PRINT #RUTA; I 

NVERSE 1;" M ;J; PAPER 2; INK 7;T 

AB 12| M Pi- M i INT (O(J) # 1E3Í/1E3; T 

AB 22;"Pp= M ; INT (R i Jí * 1E3) / 1E3;T 

AB 3l! ,n >K 

6550 GO TO 9610 

4560 NEXT J 

6570 GO TO 9700 

6600 REM *#* T, DE Z SERIES **** 
6610 PAPER 3: BORDER 3t CLS i PR 
INT ttRUTA: PRINT *RUTA; "PUNTUAB. 
MEDIA <I>- " ; PUMO 
6615 LET D=6610; LET U*24¡ LET C 
=26 

6620 PRINT ttRUTA: PRINT ttRUTA; "P 
UNTUAB. MEDIA (Pí= ; PUMR 
6630 PRINT ttRUTA: PRINT ttRUTA;”D 
ESVIACIQN TIPICA (n=";SlGI 
6640 PRINT ttRUTA: PRINT ttRUTA; "D 
ESVIACION TIPICA (Pí=";SIGP 
6650 PRINT ttRUTA: PRINT ttRUTA; P 
APER 6; INK O; 41 TABLA DE LAS 2 
(IMPAR Y PARÍ "í PRINT ttRUTA 
6660 PRINT ttRUTA; INVERSE 1;"SUJ 
ETG No/ 1 ; INVERSE O; " pB ; INVER 
3E 1; PAPER 2; INK 7; u IMPAR 
INVERSE O; PAPER 3; " INVER 

SE 1; PAPER 2; INK 7; " PAR ji 
6465 FDR J-l TD S 
6666 POKE 23492,-1 
6467 PRINT ttRUTA: PRINT ttRUTA; I 
NVERSE 1 j " "¡J; PAPER 2; INK 7;T 
AB 12;"2i=": INT (M í J í *1E3> / 1E3; T 
AB 22; 11 Zp = ” ; INT íT < J > * 1E3> / 1E3| T 
AR 3 i ¡ “ *' 

6670 GO TG 9010 
6480 NEXT 3 
6690 GO TG 9700 

6700 REM ** LISTADOS ** 
















6710 PAPER 3a IMK 7r BQRDER 3: C 

LS 

6720 PRINT PAPER ó; INK O;" 

LISTADOS 
6730 PRINT AT S s O;” Listado por 
SUJETO "i FLASH l; ■< S >"; FLASH 
0;AT 7,O;" Listado por ITEM “ 
; INVERSE 1s FLASH 1;"< I > M ;#0; 


FLASH 0 

i. » 


< M > 

= M 

E N 

U" 

6740 

IF 

INKEY*= 

”S 11 

THEN 

SO 

TO 

6 

770 

6745 

IF 

INKEY*= 

"TI" 

THEN 

GO 

TO 

5 

510 

6750 

IF 

INKEY^= 

M | II 

THEN 

GO 

TO 

6 

900 

6760 

GO 

TO 6740 







6770 PRINT AT 3,3.5*27% de Sujeto 
s - "; SF; " FLASH 1 ;"> ,i j FLAS 

H 0; AT 5, 19; *M 1 - " ; S; " ) É, ;AT 7,0* 
PAPER 2;" Desde el SUJETO No. 

“i LET 06790 
6780 ÍNPUT LINE I* 

6785 80 SUB 1135: IF OI THEN L 
ET D=2: GQ TO 6780 
6790 GÜ TO C 

6795 LET OVAL l*í PRINT AT 7,22 
; PAPER 2; BRIGHT 1;U: IF U>S OR 
U <1 THEN 80 TO 6770 
6800 PRINT AT 9,0; PAPER 2;" Has 
ta el SUJETO Na. H ;s LET 06 

805: GD TO 67Q0 

6805 LET H=VAL I*t PRINT AT 9*22 
l PAPER 2; BRIGHT l¡Hi IF H>S OR 
H< 1 THEN 80 TO ¿800 
6908 LET 0*6833 
6810 IF H<U THEN 80 TO 6700 
6313 POKE 23650,8 

6814 FOR F*i5 TO 21a PRINT AT F, 
O; PAPER i* BRIGHT lj" 

"i NEXT f 

6815 PRINT AT 13,7: PAPER 4; IMK 
Of BRIGHT 1 ; 11 COMANDOS " 

6820 PRINT AT 16*0; PAPER Bf IMK 
6 ; M < A > para Adelante 

M 

6022 PRINT ? PAPER 0; INK 6 ; 11 < 

E > para Atras " 

6824 PRINT * PAPER 0 ; INK 6 ;" < 

M > para volver al MENU 11 
6826 PRINT *0g INK O;" Pu 

lea una tecla 11 

6328 IF INKEY*= H " THEN GO TO 60 
28 

6830 80 TO D 

6835 PAPER 1: BORDEA 1? FOR J-U 
TO H 

6840 CLB : PRINT AT 0,8; INVERSE 
1 ; " SUJETO No. 11 5 J í M H 
6845 PRINT * " A-'^ACJí;" 

,, l"E= ,, ;EtJ) ; 11 < V P N- M |N< 

J) 

6047 PRINT ' " Puntuabi1 i dad - M ; 
P í J > ; " " 

6849 PRINT ? " Punt. MEDIA - ";PU 
M 

6851 PRINT 11,1 2 = ";Z<J> 

6052 PRINT AT 0*17;: LET D-Z(J>: 

GO SUB 6853f GO TO 6865 
6853 IF D<O THEN PRINT INVERSE 
1 ; INK 2i PAPER 7;" SUSPENSO 

6855 IF D>«0 AND D<.5 THÉN PRIN 
T INVERSE 1; INK 5;" APROBAD 

O”, 

6857 IF D>-.5 AND D<1 THEN PRIN 
T INVERSE 1; INK 5;" BIEN", 

6859 IF D>-1 AND D<2 THEN PRINT 
INVERSE 1; INK 5;" NOTABLE" 

6861 IF D>=2 AND D<2.5 THEN PRI 
NT INVERSE 1; INK 5: 11 SOBRESALI 
ENTE% 

6863 IF Ü>2.5 THEN PRINT PAPER 
6 ; INK 0;" SOBRESALIENTE", 

6064 RETURN 

6865 PRINT ’ PAPER 3; INK O: BRI 


eomciE»«tG& ce ^:*ec 


ítTT^rmi n cs««i 

ín’iur u: h fct H iti 

I* I ' €« * th * ;■ W.ÍC i ' • 



, 63*47 



GHT 1;"POR SERIES DE ÍTEMS UMPAR 
Y PARJ" 

6868 PRINT "A1= M ;X(J>,"Apa”;V<J) 
6069 PRINT "El a l, j Y(J) , " Ep = " j W í J ) 
6870 PRINT M Ni = " ¡ S (J ) , n Np= ; N í J ) 
-SÍJ1 

6873 PRINT f “Pi ¡ Q (J í , "Pp* 11 ; R í J 
> 1 " " 

6876 PRINT ? "Pmi; PUMQ ( "PBip-" j P 
UMR 

6879 PRINT ? 11 Zi; M t J ) f '7ps 11 ; T (J 
) 

6880 LET D=MÍJ): GO BUS 6853: LE 
T D=T íJ): GO SUB 6853 

6882 PRINT AT 21,0;: POR K=i TQ 
SFs IF HCK)=J THEN PRINT PAPER 

7; INK 2; 11 Sujeto INVERSE i; 

" " | K; " ■ " ¡ INVERSE O;" con Mayor 
Puntuab,";TA 8 31;" “ 

6883 POKE 23692,“1 

6885 IF L íK)= J THEN PRINT PAPE 
R 7; INK 2;" Sujeto "j INVERSE 1 
i" " | K | " * " ¡ INVERSE O; " con Meno 
r Puntuab. TAS 31; « w 
6088 NEXT K¡ IF SCREEN4 í2i*l><> 
"B" THEN PRINT AT 21,0; PAPER 7 
; INK 2? 11 SIN COMENTARIO 

"; TAB 31;" " 

6090 BEEP .2,10 

6891 PRINT #0; PAPER 4; INK O; B 
RIGHT 1;"Pulsa un COMANDO □ 11 ; I 
NVER5E 1; INVERSE O; " para 

COPY" 

6894 IF INKEY$= ll M M THEN GO TO 5 
510 

6895 IF INKEY*-"A M AND ÍJ>-H> TH 
EN PRINT #0; FLASH 1; F I N 
DEL LISTADO "i FOR F“ 
1 TO 50: NEXT F: GO TO 6700 

6896 IF INKEY*=" B 1 ' AND í J >U) THE 
N LET J=J-it 60 TO 6040 

6897 IF INKEY*="A" AND J<H THEN 
NEXT J 

6898 IF I NKEY$= "C 11 THEN COPY 

6899 GO TO 6094 

6900 REM ## LISTADO POR ITEMS** 

6910 PRINT AT 5 p 0j ,J 277. de Su 4 
etos - lk * SF; " 11 ; AT 7,19; « Íl- M ; I 

; m i ,f 

6915 PRINT AT 9,0; PAPER 2; n Des 
de el ITEM No, 11 : LET C-693 


6920 INPUT LINE I# 

6925 GQ SUB 1135: IF D=1 THEN L 
ET D—2s GO TO 6920 
6930 80 TO C 

6935 LET U=VAL I*? PRINT AT 9,20 
; PAPER 2; BRIGHT 1;Uí IF U>I OR 
U<l THEN GO TO 6910 
6940 PRINT AT 11,0; PAPER 2; rp Ha 
stñ el ITEM Na, M i LET C=Ó9 

45: GO TO 6920 

6945 LET H-VAL 1^: PRINT AT 11,2 
O; PAPER 2; BRIGHT l;Hs IF H>I O 
R H<1 THEN GQ TO 6940 
6950 LET D=6960: POKE 23658,8 
6955 GO TO 68 L O 

6960 PAPER i: BGRDER Is FOR F~U 


TO H 

6970 CLB í PRINT INVERSE 1sTAB 
31; 11 ": AT 0,11; PAPER 0;"ITEM Na 
■ 11 í F 

6972 FOR K=i TO 3? PRINT PAPER 
S;TAB 31 ;" NEXT Ks FOR K >1 TO 

3i PRINT PAPER 6 ;TAB .. N 

EXT Ks FOR K-l TO 3: PRINT PAPE 
R 3; TAB 31 ; M 11 1 NEXT K 

6973 PRINT AT 10,0;¡ POP K=1 TO 
6 i PRINT PAPER 4; TAB 31; lf ” : NE 
XT K; FOR K-l TO 6s PRINT PAPER 

2; TAB 31 IJ i NEXT Ks PRINT AT 
1 , 0 ; 

6974 PRINT PAPER 8 ; INK Q;"Acie 

rtfls de i 277. de Sujetos con Maya 
r Puntuabi 1 i dad = = As 

PRINT INK 5; BRIGHT 1; l BUj*N 
o.";: FOR K-l TO SF; IF I(HÍK>,F 
5=1 THEN PRINT INK 5; BRIGHT 1 

6975 NEXT K 

6976 PRINT ’ PAPER 0; INK l;"Aci 
ertos del 27X de Sujetas ton Men 
or Puntuabi1ídad = ";CíF); M - Ai 

n ! PRINT INK 5; BRIGHT ls"Süj. 
No. 11 ;: FUR K^l TO SF: IF KLUO, 
F>*1 THEN PRINT INK 5; BRIGHT 
i ; 11 ;LOO ; 

6977 NEXT K; PRINT ” PAPER B; lp Er 
reres del conjunto de Sujetos an 
teripres - OÍF);" PRINT IN 
K 5; BRIGHT I; IL Su j . No. ■"; : FOR K= 
1 TO SF: IF IíHUO*F>=-l THEN P 
RINT INK 5; BRIGHT 1 ¥ ",";H(K>; 
6970 IF KLCKJjF)»-! THEN PRINT 

INK 5; BRIGHT 1j%"iL<K); 

6979 NEXT K 

6980 PRINT *•, PAPER 8 ; INK O; " I 
, F, a u ; F í F); " y , ri 

6982 PRINT PAPER 0; INK O;" I-D 
* ~ " ; G (F > ; " X H 

6904 PRINT PAPER 8 ; INK 0; M Í,D 
. M» =» "; J (F) ; 11 % u 

6986 PRINT PAPER B; INK O;" I.E 

— ii. ■ ii « 

6987 PRINT AT 16*0; PAPER 8 ; É, Ace 
rtarom "; : POR J=1 TO Si IF I(J P 
F J = 1 THEN PRINT PAPER 3; J 

6988 NEXT J; PRINT CHR* 8 ; PAPER 
0; , % " ;¡ PRINT PAPER 8 ;" Errara 

n¡";: FOR J=1 TO S: IF Í(J,F>=-1 
THEN PRINT PAPER G; J; " , 11 ; 

6909 NEXT Ji PRINT CHR* 8 ; PAPER 
8 ; ". n ;i PRINT PAPER 8 ;" Hicier 
an Nulasit FOR J=1 TO S: POKE 
23692,-1: IF IÍJ ? F)=0 THEN PRIN 
T PAPER S;J; h V; 

6990 NEXT J: PRINT CHR* 0; PAPER 
8 ; ", 11 ; BEEP .2,10 

6991 PRINT 40-, PAPER 4; INK O; B 
RIGHT 1;"Pulsa un GOMANDO a "; I 
NVERSE Is^CO"; INVERSE O; " para 

COPY" 

6992 IF 3 NKEY*="M" THEN GO TO 5 
510 

6994 IF INKEY*="C" THEN COPY 

6995 IF INKEYS="'A" AND TH 

EN PRINT * 0? FLASH 1;" F 1 N 
DEL LISTADO "i FOR F~ 
1 TO 50l NEXT F: GO TÜ 6700 

6996 IF INKEY*- p, B" AND CF>U) THE 
N LET F=F-ls GG TO 6970 

6997 IF INKEY$“"A n AND F<H THEN 
NEXT F 

6999 GO TO 6992 

7800 REM **** CORR. Y FlAB. **** 
7810 PAPER 5: 0ORDER 5: INK O: C 
LS : PRINT ’ PAPER A;" COEFICI 
ENTES DE FIABILIDAD 
7820 PRINT 11 INVERSE i;" CQEFl 
CIENTE DE CORRELACION 11 
7830 PRINT "Obtenido de los Cae* 
icientes de Regresión LINEAL de 
las Series de Items par & impar 




No se caliente la “CABEZA” 



Nuestra calidad es "SEIKO"; 
nuestros precios, únicos. 

Si desea más información, 
consulte con nuestro distribuidor 
más cercano, o llame o escríba a; 



Dirección comercial: 

Av. Blasco tbáñe¿, U 4-116. 
46022-Valencia. 

TeL (96) 372 83 89. 
Téiex 62220 

Delegación en Cataluña: 

0/ Muntaner. 60. 4, 1, 
08011-Barcefona. 

Tet. (93) 323 32 19 , 


ESTOS SON NUESTROS MODELOS: 


Modelo 

Velocidad 

Columnas 

Tipos de 
letra 

Interface 

P.VJP. 

GP-5Ü 

40 cps 

46 

2 

A-Paralelo 

AS-Serial 

S-Spectrum 

A-25.900 

AS-29.900 

S-2S.900 

GP-500 

50 cps 

80 

2 

A-Paralelo 

AS-Serial 

A-47.900 

AS-49.900 

GP-550 

66 cps 

80-136 

13 

A-Paralelo 

A-59.90G 

GP-700 

50 cps 

80-106 

3 

A-Paralelo 

A-89.900 

BP-5200 

200 cps 

136-272 

18 

Paralelo y serial 

199.000 

BP-5420 

420 cps 

136-272 

18 

Paraleo y serial 
MBM PC 

299 000 
1-299.000 


Disponemos de interfaces opcionales para todos los modelos: IBM PC COMMODORE 64 2X 
SPECTRUM, ATARI, DRAGON 64, SHRAP MZ 700, SPECTRAVIDEQ, NEW BRAIN, APPLE, ETC... 






























FIABILIDAD 

A = Aciertas,E^Errores,N«Nul D5 
P - Punt uabi 1 i t¿ad 
Z = Puntuabi1 idad TIPIFICADA 

R - Coeficiente de Correlación 
Cf = Cüef i.ciente de Fiabilidad 

VALIDEZ 

I.F. = Indice de Facilidad 
I.D. =* Indice de Di seri minacion 
I-D.M * I.D, Máximo 
I.E. = Indice de E-fieacia 


7840 FOR F =8 TO 10s PRINT AT F,0 
S PAPER 4;" 

•*t NEXT F 

7350 PRINT AT 9,S; PAPER B\" R - 

,. íR ,„ „ 

7060 PRINT AT 12,0: INVERSE 1;" 

COEFICIENTE DE FIABILIDAD 
7070 FDR F = 14 TO i 6 : PRINT AT F, 
Oí PAPER 4 S “ 

"i NEXT F 

7080 PRINT AT 15,5? PAPER Q ;“ C. 
f. = "►¡cpr 1 " 

7900 PRINT #0; PAPER 2; INK 7; "P 
ulsaKO par* CGPY,<M>=M E N U 11 
7910 IF INKEYí= ,,M TNEN 80 TO 79 
10 

7920 IF INKEY*="M" THEN GÜ TO 5 
000 

7930 IF INKEY*=“C" THEN GOPY 
7940 GG TO 7910 

3200 REM »*** IND. DE VAL. **** 
8210 PAPER 1 : BQRDER 1 i INK 7: C 
LS i PRINT PAPER 6 ; INK 0; " í N 
DICES DE VALIDEZ" 
8220 FÜR F=12 TO 20i PRINT AT F* 
0| PAPER 5| M 

"i NEXT F 

8230 PRINT AT 3,3; INK 7; " No. D 
E SUJETOS - "; S; <J "; AT 5,3; J ' No, 
DE ITEMS = "jl;" " ; AT 7,0; "RE 
SfJUESTAS POSIBLES POR ITEM= ";RP 
S240 PRINT AT 9,0; INK 6 ;" Los I 
ndicee de Validez se dan para 
cada Item y son : *' 

8250 PRINT * ? "I.F. = Indice de F 

AGILIDAD ( 7w > " 

B260 PRINT ’"3.D-=Indice de DISC 
RIMI NAC I ON í 7.) " 

0270 PRINT ’ "I-D-M. = I.D. MAX IN 
Q C % ) * 

B28Ü PRINT 7,, I.E. = Indice de EF 
ICACIA 

6290 PRINT #0; INK 6 ; BRIGHT 1; 11 
Pulsa una tecla 

II 

0295 LET RUTA-Sí OREN LE 

T D-S-310! LET U“158¡ LET C*32 
8300 IF INKEYÍ = 11 " THEN GD TO 83 

00 

8310 PAPER 5: PAPER 5i INK 0: BO 
RDER 5i CLS s PRINT #RUTA; PAPER 
é;"I N D I C É S DE VALIO 
E Z 11 

6320 FOR F=1 TO I 
8325 FGKE 23692,-1 
8330 PRINT #RUTA: PRINT #RUTA; I 
NVERSE 1; BRIGHT i i"ITEM No.";Fi 
PRINT * RUTA a , PAPER 2; INK 7? "I, 

F, = " 1 1NT ÍFÍF) *1E4> /1E4; " Y. M ;TAB 
18; 11 1. D. TNT <G í F) *1E4 J / 1E4; T 
AB 31; ’7. M : PRINT # RUTA; PAPER 2; 

INK 7; INT < J íF > * 1E4) / 

1E4» 11 */."; TAB 16; 11 1.E- ■" ; INT ÍKÍF 
)4 1E43/ 1 E4;TAB 31;" " 


0340 00 TQ 9810 
8350 NEXT F 
8360 BO TO 97QQ 

8600 REM #44 CAMB- DE DATOS *** 
8610 CLS ; PRINT ’ PAPER 6 j INK 
O;" CAMBIO DE DATO 
8 11 

B615 LET U=167í LET C«33¡ LET K> 
5i 60 TO 9050: PRINT AT 5,3;" 

0620 PRINT AT 7,0; INVERSE l ¡" S 
UJETO Nb. ■* 

8630 INFUT "Introduce el No. del 
Sujeto íl- ,r ¡ (S> ; ") "? LI 

NE If: LET D=2 

8640 GÜ SUS 1135: IF D =1 THEN G 
O TO 8630 

6650 IF VAL I*>S GR' VAL I*<1 THE 
N GO TO 8630 

0660 PRINT INVERSE 1; AT 7, 11 ;VA 
L 1$; 11 " 

0670 GO 8 UB 1145: IF D=1 THEN G 

Q TG 8690 

8680 GO TO 8630 

8690 LET LMVAL I*; LET H=U 

8710 PRINT AT 7,0;" 

"i LET 0=2: GO Tü 1171 
8720 PRINT *10; PAPER 6 ; INK O; " 
QUIERES CAMBIAR OTRO S/N ? 

B730 FDR F=i TO 50i NEXT F 
8740 IF INKEY*="5 ,h THEN CLS : G 
O TQ B620 

S750 XF INKEY*= M N ,J THEN 00 TÜ 1 
310 

8760 GO TO 0740 

9000 REM **** GRABAR DATOS 4 * * * 


9010 PAPER 2 : INK 7: BORDER 2: C 
LS 

9020 PRINT INVERSE lp" G R A 
BAR DATOS u 

9030 LET U=105: LET C=35: LET K“ 
1: GO TO 9850 
9065 PRINT AT 5,i2;"s SI 
9070 DIM DÍ3>: DIM üíU,LEN R*) 
9080 RESTORE 9100: FDR F=*.l TG 3i 
READ D: LET D<F)-Ds NEXT F 
9090 LET U*(n=ft* 

9100 DATA S, I,RP 
9110 PRINT AT 7,0; PAPER 5; INK 
Ú; " NOMBRE DEL FICHERO 11 ; FLASH 
PRINT AT 21,0;'* 10 LETRAS 
MAXIMO *': PRINT AT 9,3j 

9120 INPUT LINE 14: IF CQDE Ií= 
O THEN GO Tü 9120 

9121 IF LEN I* 10 THEN GD TO 9! 
20 

9122 PRINT INVERSE 1;I*;AT 7,20 
; INK 2; “ ** 

9125 FGKE 23658,0 
9130 SAVE I* DATA DO: 5AVG I* D 
ATA UfO: SAVE I* DATA IO 
9140 CLS * PRINT INVERSE 1;”S R 
ABACION DE DATOS 11 : 
PRINT AT 10,0;"QUIERES VERIFICA 
R LOS DATOS Hl ; FLASH 1;"S HI ; FLA5 
H O;"/"| INVERSE 1; FLASH 1;"N" 
9150 IF INKEY*="S" THEN GO TO 9 
170 

9155 XF INKEY*= M N ' 1 THEN GD TQ 5 
020 

9160 GO TÜ 9150 

9170 PRINT AT 10,27; INVERSE 1; " 
s SI " 





































9X00 PRINT AT 12, Oj, "SI APARECIES 
E UN CODIGO DÉ ERROR DURANTE LA 
VERIFICACION, PULSA: 11 ; IN VERSE 
i;" GOTO 5000“ 

9190 PRINT AT 20,0; PAPER 5; INK 
1;" SI HAS REBÜBINADO LA CINTA 
, PON EN MARCHA EL CASSETTE 

9200 VERIFY I* DATA DUt VERIFY 
I* DATA U*Oí VERIFY I* DATA 3 0 
9210 CLS : PRINT AT 11,0; PAPER 
15 FLASH 1 (" LOS DATOS ES 

TAN PERFECTAMENTE G 

RASADOS 11 ! PAUSE 200 

9220 GO TD 5020 

9400 REM **** CARGAR DATOS **#* 
9410 PAPER 4: INF Oí BQRDER 4: C 
LS 

9420 PRINT INVERSE 1¿ BRIGHT 1; 
" CARGAR DATOS 

9440 LET 11=234s LET C-36¡ LET K~ 
lí Gd TO 9850 

9450 CLEAR í DI M U*íl*18): DIM D 
Í3> 

9455 PRINT INVER5E la BRIGHT 1; 

" CARGAR DATOS 
PRINT AT 3,3;" 

9460 PRINT AT 7,0;“ NOMBRE DEL F 
ICHEPO n ; FLASH 1;"7 u 
94 70 INF'UT LINE I*: PRINT AT 7, 
21:” ";AT 9,2; INVERSÉ I; BRIGHT 
1 ; I* 

9475 F'OKE 23650,8 

9480 PRINT AT 15,0; PAPER i i INK 
7;"SI APARECIESE UN CODIGO DE E 


RROR DURANTE LA CARGA , PULSA i 
INVÉRSE 1; " GOTO 9450 11 
9490 PRINT AT 21,4;"PON EN MARCH 
A EL CASSETTE" 

9500 LOAD I* DATA DO: LOAD I* D 
ATA U$ O : LOAD X* DATA IO 
9510 CLS ; PRINT AT 10,0; PAPER 
3í INK 7; 11 CARGA CORR 
E C T A 11 

9520 LET S“DtlJ» LET I«D<2>¡ LET 
RP=D(3) : LET Rl-Ufíl) 

9530 PAUSE 100 
9540 LET B=9450 
9550 GO SUB 9900 
9560 5D TO 1171 

9700 RETI "*0PCI0N:MENU~IMPRE5. * M 
9710 PRINT #0; BRIGHT 1; PAPER 4 
l INK Os "Pulsas 11 j FLASH 1 ;"<M> h j 
FLASH O; " = " - PAPER 5; 11 MENU " ; 
PAPER 4;% M í INVÉRSE i| FLASH 1; 
"< I >" ; FLASH O; INVERSE O* H * M ! P 
APER 6; " IMPRESORA 11 
9720 IF INKEY*="M" AND D-8310 TH 
EN CLOSE *RUTA; GO TO 5010 
9730 IF INKEY*“ N M" AND DO8310 T 
HÉN CLOSE RUTA: GO TO 5510 
9740 IF INKEY*»"!" THEN LET RUT 
A=4: CLOSE #5: OPEN #4,"’P“; GO T 
O D 

9750 GO TO 9720 

9000 REM *SUB, DE PARADA EN T,** 
9010 IF INKEY*=“" THEN PQKE 236 
i 8 , U : FGkE 23619,C¡ ROLÉ 23620,1 
PB15 BEEF .5,0 

9320 IF LNKEY^*"" THEN GO TO 90 
20 

9825 IF INKEY*- 11 ^" AND D=03tO TH 
EN CLOSE #RUTAí GO TG 5010 


9030 IF mCEY$^"M" AND DO8310 T 
HEN CLOSE # RUTA: GO TG 5510 
9035 BEEF .5,0 

9S40 PQKE 23613,U: PQKE 23619,C: 
F'OKE 23620, 1 

9050 REM *** SUB. DE VERIF, *** 

9060 PRINT AT 5,2;“ CONTINUO 
FLASH 1 ?"5"; FLASH O;"/"; INVER 
SE 1; FLASH l;"N J ' 

9070 IF INKEY«-“N" THEN GO TO 5 
020 

90SO IF INKEY^'S" THEN PQKE 23 
6 10,U; PÜKÉ 23619,C: PQKE 23620, 
K 

9090 GO TO 9B70 
9900 REM ** 277. DE SUJETOS ** 
9910 LET 5R=27*S/100: LET SE=INT 
Í27*5/100> 

9915 IF 5R=BE THEN LET SF=SE: G 

O TO 9925 

9920 LET SF=SE+1 

9925 IF D-9450 THEN RETURN 

9930 REM *SUB,DE LDNG«VARIABLES*- 

9935 LET U=65000-íPEEK 23627+256 

KPÉEK 23628) 

9940 IF VAL I* >S THEN GO TO 996 
O 

9945 LET H=INT <<U“439-Bü*5-1040 
F)/< 25+5*8)> 

9950 IF VAL I*>INT H THEN LET J 

=J+1: RETURN 

9955 LET J=0: RETURN 

9960 LET H^INT <<U-439-70*S-l0*S 

F)/Í35+5*S )> 

9965 IF VAL I* MI NT H) THEN LET 
J=J+1¡ RETURN 
9970 LET J=»Q; RETURN 
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A estas alturas —nunca mejor 
dicho— seguro que ya dispone de 
un programa simulador de vuelo, o 
en el peor de los casos, estará exa¬ 
minando los distintos tipos de 
“vuelos” que se pueden realizar 
con su Spectrum. El programa que 
le ofrecemos tiene la particulari¬ 
dad de correr en el Spectrum de 16 
K, gracias a la separación de ins¬ 
trucciones en dos programas. El 
primero define los caracteres gráfi¬ 
cos e informa acerca de la utiliza¬ 
ción de su aparato. El segundo es 
el simulador propiamente dicho, 
que le permitirá llegar tan lejos 
como su imaginación ¡e permita. 

Comienza el programa “en el ai¬ 
re”, por lo que habrá de concentrar 
su atención en el aterrizaje. Ini¬ 
cialmente tomará tierra fácilmen¬ 


te, pero si es amante de las emocio¬ 
nes fuertes, el completo cuadro de 
control le dará la información pre¬ 
cisa en todo momento para contro¬ 
lar el avión... o intentarlo al me¬ 
nos. 

¿Quiere una ayudita? Relájese y 
desconecte dos motores, uno de 
cada lado del avión (de otra forma 
perdería estabilidad). Disminuya 
la altura a 100 metros, a una velo¬ 
cidad comprendida entre 301 y 
550 km/h. Cuando se encuentre a 
2 km. de la cabeza de pista, des¬ 
cienda a 30 m. y recorra 3 km. 
Después baje a 5 m. y recorra 2,5 
km. Una vez hecho esto, baje a 0 
m. y disminuya la velocidad pa¬ 
rando los motores. Si recordó sacar 
el tren de aterrizaje, habrá conse¬ 
guido su objetivo. 


Finalmente indicar que los ca¬ 
racteres subrayados corresponden 
a la definición gráfica creada en el 
primer programa (por ejemplo A = 
A en modo gráfico). Habrá de eje¬ 
cutarse solamente el primer pro¬ 
grama, desde el cual se llama al se¬ 
gundo (línea 9999) que habrá de 
estar grabado en cinta. 

Roberto Lacámara 16 K 

CUADRO DE MANDOS 

C Quitar piloto automático. 

K Aumentar velocidad. 

J Disminuir velocidad. 

SPACE Estabilizar velocidad. 

6 Aumentar altura. 

7 Disminuir altura. 

5 Inclinar izquierda. 

8 Inclinar derecha. 

T Control tren aterrizaje, 

1,2 Apagar motores. 

3,4 

Q,W Encender motores 

UI,R I 
















■■■PROGRAMA 
10 REM Igra-fic.-presentacion* 
20 REM # Roberto Laeamara t 


100 

POKE 

USR 

11 a " +0, BIN 

00000001 

110 

POKE 

USR 

"a"+l,BIN 

00000010 

120 

PQKE 

USR 

M a*+2,B1N 

0 

130 

POKE 

USR 

"a"+3,BIN 

0 

140 

PQKE 

USR 

"a"+4,BIN 

0 

150 

PQKE 

USR 

"a"+5,BIN 

0 

160 

PQKE 

USR 

''a"+ó, BIN 

0 

170 

PQKE 

USR 

"a"+7,BIN 

0 

190 

pcm - 




200 

PQKE 

USR 

"b"+0,BIN 

0 

210 

PQKE 

USR 

"b H + 1,BIN 

0 

220 

PQKE 

USR 

"b"+2,BIN 

0 

230 

PQKE 

USR 

"b"+3,BIN 

0 

240 

PQKE 

USR 

"b 11 +4, BIN 

0 

250 

PQKE 

USR 

"b"+5,BIN 

0 

260 

PQKE 

USR 

"b"+6,BIN 

01000000 

270 

POKE 

USR 

"b"+7,BIN 

I0000000 

290 

REM - 




■ár*r / V 

300 

POKE 

USR 

"c M +0,BIN 

10000000 

310 

POKE 

USR 

11 C " +1 , BIN 

010000DO 

320 

POKE 

USR 

"c ,1 +2,BIN 

0 

330 

POKE 

USR 

"c"+3,BIN 

0 

340 

POKE 

USR 

11 c "4-4,BIN 

0 

350 

POKE 

USR 

"c"+5,BIN 

0 

360 

POKE 

USR 

"c"+6,BIN 

0 

370 

PQKE 

USR 

*' c " +7, BIN 

0 

390 

REM - 




400 

POKE 

USR 

"d" +-0, BIN 

0 

410 

POKE 

USR 

" d '‘ + 1, BIN 

0 

420 

POKE 

USR 

''d"+2, BIN 

0 

430 

POKE 

USR 

"d"+3,BIN 

o 

440 

POKE 

USR 

,l d "+4, BIN 

0 

450 

POKE 

USR 

11 d "4-5, BIN 

0 

460 

POKE 

USR 

•’d"+6, BIN 

00000010 

470 

POKE 

USR 

"d"+7,BIN 

00000001 

490 

REM - 




t 7 V 

500 

POKE 

USR 

”e"+0,BIN 

00000001 

510 

POKE 

USR 

” e " +1, BIN 

00000010 

520 

POKE 

USR 

"* H +2,BIN 

00000100 

530 

POKE 

USR 

"e"+3,BIN 

0000 1 ooo 

540 

POKE 

USR 

"e"+4,BIN 

00010000 

550 

POKE 

USR 

"e"+5,BIN 

00100000 

560 

PQKE 

USR 

”e"+6 ,BIN 

01000000 

570 

POKE 

USR 

"e"+7,BIN 

10000000 

590 

REM - 




600 

n l_ i i 

POKE 

USR 

"f"+0,BIN 

10000000 


rcuvuxs 


620 

POKE 

USR 

" i 

"+2,BIN 

00100000 

630 

POKE 

USR 

"f 

"‘+3,BIN 

OOO10000 

640 

POKE 

USR 

"f 

"+4.BIN 

00001ooo 

650 

POKE 

USR 

"f 

11 +5, BIN 

00000100 

660 

POKE 

USR 

"f 

"4-6,BIN 

00000010 

670 

POKE 

USR 

"f 

" + 7,BIN 

00000001 

690 

PFM 





W 7 

700 

POKE 

USR 

"g 

"+0,BIN 

0 

710 

PQKE 

USR 

"g 

"+1,BIN 

0 

720 

PQKE 

USR 

11 g 

"+2,SIN 

0 

730 

POKE 

USR 

11 9 

"+3,BIN 

11111111 

740 

POKE 

USR 

"g 

11 +4, BIN 

0 

750 

POKE 

USR 

"g 

"+5.BIN 

0 

760 

POKE 

USR 

11 g 

"+6,BIN 

0 

770 

POKE 

USR 

"9 

11 +7, BIN 

0 

790 

REM - 





800 

POKE 

USR 

"h 

"+ü,BIN 

loo00ooo 

810 

POKE 

USR 

"h 

11 + i , BIN 

01111 ico 

820 

POKE 

USR 

"h 

"+2,BIN 

01000010 

830 

POKE 

USR 

"h 

"+3,BIN 

010000 1. 0 

840 

POKE 

USR 

"h 

"+4,BIN 

01000010 

850 

POKE 

USR 

"h"+5.BIN 

0100001o 

860 

POKE 

USR 

"h 

11 +6, BIN 

00111110 

870 

POKE 

USR 

"h 

"+7 , BIN 

00000001 

890 

REM - 

__ 




900 

POKE 

USR 

"i 

"+0,BIN 

00000001 

910 

POKE 

USR 

11 i 

"+1,BIN 

oo limo 

920 

POKE 

USR 

11 i 

"4-2, BIN 

01OOOO10 

930 

POKE 

USR 

"i 

"+3,BIN 

01000010 

940 

POKE 

USR 

"i 

"4-4, BIN 

0i000010 

950 

POKE 

USR 

"i 

"+5,BIN 

01000010 

960 

POKE 

USR 

"i 

"+6,BIN 

01111100 

970 

POKE 

USR 

"i 

"47,BIN 

10000000 

990 

REM 





1000 

PAPER 

: 7: 

BORDER 7: 

INK Os C 

LS 






1005 

PRINT 

’ AT 

12 

, 9;"NO PARE LA C 


INTA": PAUSE ISOs CLS 
1010 PRINT AT 2,2;" Instrucciones 
sobre el manejo“;AT 

___; AT 5,47 

"C- Quitar piloto automática.A 
T 6,4;"K- Aumentar veioci dad,";A 
T 7,4; 11 J- Disminuir velocidad."; 
AT 8, 0;"SPACE— Estab i1 i 2ar vel oc 
i dad.";AT 9,4;"ó- Aumentar al tur 
a.";AT 10, 4; "7- Disminuir altura 
, 11 * AT 11,4; "5- Inclinar isquierd 





















- ® - 

1020 F'RINT AT 12 s 4? ,, 8“ Inclinar 2190 INK 5: F'RINT AT 8, 13; " Gg] GG 

derecha. AT 13, 4; "T- Controlar " ; AT 7, 15; M ! " 

tren de ater.'';AT 14,4; " 1 \"; AT 1 2195 PAPER 1: INK 7: PRINT AT 3, 

5,4;"2 í Apagar motores";AT 16, 2;"VELO.";AT 8.2;"AIRE" 

4; "3 ! " ; AT 17,4; "4/" : AT 1B,4;*'Q\ 2200 PRINT AT 19,23;"TIEMPO";AT 

" ;AT 19,4; "W ¡ Encender motores 11,23;"MOTORES";AT 14,23;"FUEL"; 

11 ; AT 20,4; "E ¡ "; AT 21,4; ,, R/“ AT 7, 23; "TREN ATE" ; Al’ 3,23; " ALTÜ 

9999 LOAD "AIR RICH" RA" 


I PROGRAMA 21 


1000 REM # airrích # 

1500 REM Roberto Lacamara* 

2000 CLEAR : INK 6; PAPER 0: SOR 
DER 3: CLS 

2010 POR k=0 TÜ 31: PRINT AT O,;-: 

5 “M"; AT 1, x ; '*■" : NEXT x 
2020 PLOT 0,30; DRAW 255,0 
2040 PLÜT 81,152; DRAW 85,0 
2050 DRAW 0,-88; DRAW -85,0: DRA 
W 0,87 

2060 GIRELE 123,108,42 
2070 PLÜT 83,30: DRAW 0,-30 
2080 PLÜT 170,30: DRAW 0,-30 
2090 PLÜT 180,154; DRAW 0,-110: 
DRAW 70,0: DRAW 0,110: DRAW -70, 

O 

2100 PLOT 7,134: DRAW 0,-110: DR 
AW 65,0: DRAW 0,110: DRAW -65,0 
2110 PLOT 80,38: DRAW 92,0: DRAW 
0,20: DRAW -92,0: DRAW Ó,-20 
2120 PLOT 7,115: DRAW 65,0 
2130 PLOT 130,125: DRAW 70,0 
2140 PLÜT 180,65: DRAW 70,0 
2150 PLOT 180,95: DRAW 70,0 
2155 INK 7: PRINT AT 8,11;" 

-";AT 8,19;" : PRINT AT 9,2 

1 ; " 1 ";AT 7,21;"1";AT 5,2!;"2";AT 
11,21;"2" 

2165 PRINT AT 19,2;"CONTROL";AT 
15,10;"Long. PISTA";AT 19,ll;"Ca 
b. PISTA" 

2170 PAPER O: INK 7: PRINT AT 6, 
5;"Km/h";AT 9,2;"Vel.";AT 12,2;" 
Resi.";AT 11,5; "Km/h" ;AT 15,5;"g 

/Cfll" 

2175 PRINT AT 2!,0;"Aut*| Manu* " 
;AT 16,20;"m";AT 21,20;"m";AT 21 
,30;"sg";AT 5,30; 11 m" 

2180 PRINT AT 15,29;"1";AT 9,23; 
"OnH Off|"; INK 7; PAPER 2;AT ¿2 

,23;"1";AT 12,25;"2";AT 12,27;"3 
« . at i r> oo. » a •* 


3000 LET yu=0: LET ti=0: LET pa= 
O: LET vm=0: LET vn=0: LET v=750 
: LET a=5000: LET ml-1: LET m2=i 
: LET m3=l: LET m4=l: LET -f-2000 
: LET 1p=7000: LET cp~30000: LET 
ba=INT <RND#lQl>-50: LET 1=2; L 
ET t=Os LET h=0: LET vl-Oa LET e 



u=1: LET ev=1: LET m=0: LET er=0 
: LET g j=0: LET cf=0: LET oo=0 
3010 PQKE 23674,0: POKE 23673,0: 
POKE 23672,0 


3020 LET a$=INKEY$: IF a$="c" TH 
EN GO TG 3090 
3030 GO SUB 3390 

3035 LET ti = (F'EEK 23672+256#PEEK 
23673)/SO 


3040 IF oo=l THEN GO TÜ 3070 
3050 LET cp=cp-250: IF cp< =0 THE 
N LET cp=0: PRINT AT 21,14;"O 
"; LET oo=l: GO TO 3080 
3060 IF cp >0 THEN 60 TO 3080 
3070 LET lp=lp-250 
3080 INK 7: PAPER 2: PRINT AT 5, 
2;v;" ";AT 5,23; a;" " ; AT 21,13;c 
p;" ";AT 16,14;lp;" "; AT 15,23;+ 
; ’’ ";AT 21,23; ti:" " ; AT 10, 2; va; 
" " ;AT 14,2;ra;" Gü TD 3020 


5i 









rrocpCMjis 


3090 PAPER 5: PRINT AT 21,3;" ** s 
PAPER 2: PRINT AT 21,9;" 11 
3100 GQ SUB 3200 
3110 GD SUB 3390 
3120 G0 SUB 4150 
3130 GÜ SUB 3790 
3140 GO SUB 3770 
3150 GO SUB 3910 
3160 GQ SUB 3710 
3170 GO SUB 3380 

3175 LET ti=(PEEK 23672+256*FE£K 
23673)/50 


3180 

GO 

SUB 4010 



3190 

GO 

TO 3100 



3200 

LET 

a$=INKEY$ 



3210 

IF 

a$- H 6" THEN 

GO TO 

3560 

3220 

IF 

\a*="7 M ) AND 

(a< >0) 

THEN 

GO 

TO 

3590 



W 1 4Ü, —* 1 Ü 

IF 

a$="8" THEN 

GO TO 

3630 

3240 

IF 

a$="5" THEN 

GO TO 

3650 

3250 

IF 

a$ = "k" THEN 

GO TO 

3670 

3260 

IF 

ñ$="j" THEN 

GQ ' r 0 

3690 

3270 

IF 

aí^'t" THEN 

GO TO 

3540 

3280 

PAPER 5: INK 0: 

IF a$= 

"l" T 

HEN 

ti 

LET 

m1=0: PRINT 

AT 12, 

23; H 1 

3290 

IF 

a*="2" THEN 

LET m2=0: P 

RINT 

AT 

12,25;"2" 



3300 

IF 

a*= ,, 3" THEN 

LET m3=0: F' 

RINT 

AT 

X I, 4 jL i ^ J 1 



3310 

IF 

a$="4" THEN 

LET íti4=Ú: P 

RINT 

AT 

12,29; 11 4" 



3320 

IF 

(a**="q H > AND 

íf >0) 

THEN 

LET 

ml = 

l¡ INK 7: PAPER 2: 

PRINT 

AT 12,23;»!" 



3330 

IF 

<a$="w") AND 

(f >0) 

THEN 

LET 

m2= 

1: INK 7: PAPER 2; 

PRINT 

AT 12,25;"2" 



3340 

IF 

(a**"©") AND 

<f >0) 

THEN 

LET 

m3 = 

: 1: INK 7: PAPER 2e 

PRINT 

AT ¡ 

i *~>y » ii 

L 4— 4 j- ¡i ■_* 



3350 

IF 

í aí= V) AND 

(f >0) 

THEN 

LET 

m4= 

= 1; INK 7: PAPER 2: 

PRINT 


AT 1 

2,29;“4" 



3360 

IF a*=“ " THEN 

LET 

vi =0 

3370 

RETURN 



3380 

INK 7: PAPER 2: 

PRINT AT 5, 

2; v; 11 

" ;AT 5,23; a;" 

" ; AT 

21,13;c 

p ; “ " 

; AT 16, 14;1 p; " 

"; AT 

15,23;f 

■ « «i . 

I ? 

AT 21,23;ti;" “ 

: AT 

1 U ^ j¡ V A 5 


" 11 ; AT 14 t 2;ra; " " : RETURN 
3390 LET va=ba+INT <RND*5) 

3400 LET mt=rnl+m2+m3+m4s LET f=f 


-mt*3! IF f <0 THEN LET f=0 
3410 IF f=0 THEN LET mt=0: INK 
O: PAPER 5s PRINT AT 12,23;"1";A 
T 12,25; ”2*'; AT 12,27; "3" ; AT 12,2 
9)"4": INK 7: PAPER 2 
3420 LET ra = INT (v/5*va) 

3430 IF ra<0 THEN LET ra=-ras L 
ET ra=*ra+300 

3440 LET vm=3Ü0*mt: 60 TO 3880 
3450 LET vn=30#mt 
3460 IF e?r~l THEN GO TO 3490 
3470 IF v< =vn THEN LET v=vn¡ LE 
T vi =0 

3480 IF (v>=vm-50) AND <pa=0) TH 
EN LET v-v-INT (vl/2): LET vl=0 
3490 LET a=a+m: LET v-v+vl 
3500 IF a<=0 THEN LET a-0 
3510 IF a>-12000 THEN LET a-120 
00 

3520 IF 1p<“0 THEN GO TO 4180 
3530 RETURN 

3540 IF t=l THEN LET t=0: PAPER 
5: PRINT AT 9,25;" "¡ PAPER 2: 
PRINT AT 9,30;» ": RETURN 
3550 LET t-1: PAPER 2; PRINT AT 
9,25;» PAPER 5s PRINT AT 9,30 
;" "! RETURN 

3560 LET h=h-l: IF h=-3 THEN LE 
T h=-2 

3570 LET m=-5*h: IF h=-2 THEN L 
ET m=m+40 
3580 RETURN 

3590 IF a-0 THEN LET m=0: LET h 
=0: RETURN 

3600 LET h-h*i: IF h=3 THEN LET 
h=2 

3610 LET m=-5*h; IF h=2 THEN LE 
T m=m-40 


3620 

RETURN 





3630 

LET i=i+l: 

LET 

LL- 1 

■ 

IF i =4 

THEN 

LET i=3 





3640 

RETURN 




• 

3650 

LET i —i — 1s 

LET 


1 : 

IF i =0 

THEN LET i=l 





3660 

RETURN 





3670 

=0 

LET v=v+9: 

LET 

vl = 

9; 

LET pa 

3680 

RETURN 





3690 

a=l 

LET v=v-9: 

LET 

n 

> 

-9 

: LET p 

3700 

RETURN 





3710 

IF cp<=0 THEN 

GO 

To 

3750 


3720 IF mt =0 THEN RETURN 








II 


3730 
3740 
3750 
3752 
RINT 
3755 
T (v 
3760 

3770 
yu, 1 

3771 

3772 

3773 

3774 

3775 
h, 13 


LET cp=cp-INT 
RETURN 

IF oo=l THEN 


< v/3) 


SO TÜ 3755 



LET cp=0¡ INK 7; PAPER 2i P 

LET oo=l 
LET 1p=lp—IN 


AT 21,14 ;"O 
IF mtOO THEN 
/3) 

RETURN 

INK O; PAPER Oí PRINT AT B+ 
3; z$ 

PRINT AT 10+yu,13; xí 
PRINT AT 9+yu¡,13;c$ 

PRINT AT 7+yu,13;v$ 

PRINT AT 6+yu,13;b$ 

INK 5: PAPER Os PRINT AT 3+ 
;w$: LET yu=h 





3776 

3777 

3778 

3779 

3780 
3785 
3790 
3800 
3810 
3820 


3830 

$=g$ i 
RN 

3840 


PRINT AT 8+yu,13; z$ 
PRINT AT 10+yu. 13; x$ 
PRINT AT 9+yu,13|c* 
PRINT AT 7+yu,13jv* 
PRINT AT 6+yu,13;b* 
RETURN 
IF i = l THEN 
IF i=2 THEN 
IF i=3 THEN 
LET w*=" i 
LET g$=" E 
: LET 1*-" 


SO TO 3820 
SO TO 3840 
GO TO 3860 
": LET +$="B 
LET h$=" \ 

JB" 

LET z$=w*: LET LET c 

LET v$=h*¡ LET b*=i$: RETU 


LET w$»"GGOG£ n ; LET h$=" 
LET g$=" 11 í LET f$=" 


LET 

3850 LET z$=w$: LET LET c 

*=g*: LET v$=h«: LET bí=l$: RETU 
RN 

3860 LET w$=" H "í LET 
C"! LET g*=" F. '■ ¡ LET h*=" £ 
/ 11 : LET i*=" d 

3870 LET zí=w$: LET LET c 

$=gí: LET v$=h$: LET b4=i*: RETU 
RN 

er=1 THEN GO TO 3450 
v>=vm THEN LET v=vm: LE 


3880 IF 
3890 IF 
T vi *0 
3900 60 
3910 IF 
3920 IF 
= 1: GO 


Tü 3450 

a=0 THEN RETURN 
ml+m2>m3+m4 THEN 
TO 3950 


LET i m 


1=3 
i = l 


GO TO 4070 


3930 IF mi+m2<m3+m4 THEN LET im 
=-li GO TO 3950 
3940 RETURN 

3950 LET we=l+INT (RND#1Ú) 

3960 IF we<1O THEN RETURN 
3970 LET i=i+im 
3980 IF i=4 THEN LET 
3990 IF i=0 THEN LET 
4000 RETURN 
4010 IF a=0 THEN 
4020 LET g j=0 

4030 IF <a<=30> AND (a>0) AND (i 
02) THEN GO TO 4190 
4040 IF (a»10) OR <a=5) THEN LE 
T eu=eu+l; RETURN 

4050 IF (a>=15) AND <a<=3ú> THEN 
LET ev=ev+l: RETURN 
4060 LET e?u=l: LET ev=l: RETURN 
4070 IF gj = l THEN GO TO 4200 
4080 IE < (cp=0) AND <t=l> AND <v 
>300) AND (v<551>) AND <<eu>29) 
AND (ev>34> ) OR (eu>69) THEN LE 
T gj=l¡ LET vr-lp-v*2000/300: LE 
T m=Oí LET h=0: GO SUB 4350: RET 
URN 

4090 PRINT AT 5,23;"O " 

4100 IF mt=0 THEN LET k»**" 

LOS MOTORES PARADOS* 1 : LET 
CAVO EN PICADO POR.TENER": GO T 
O 4250 

cp >0 THEN LET k*=" ": L 


4110 IF 
ET jí=" 
TA": GO 
4120 IF 


NO HA LLEGADO A LA PIS 
TO 4250 

t=0 THEN LET k*=“ 


DE ATERRIZAJE 
NO HA SACADO EL 


LET 
TREN "i 


N 

GO TO 42 










Vr&qrOMXs 


50 

4130 IF v<400 THEN LET j*-" 

SE HA ESTRELLADO, 11 s LET k*«" 
ATERRIZO MUY DESPACIO": 00 TO 
4250 

4140 LET j$=" SE HA ESTRÉLL 

ADO.": LET k*= JJ ATERRIZO BRUS 

CAMENTE": GO TO 4250 
4150 IF (mt-O) AND (a>0) THEN L 
ET ar*ls LET v=v+9Ü; LET h=2: LE 
T m=-200: GQ SUB 4320: RETURN 
4160 IF er-1 THEN LET er=O: LET 
vi =0 

4170 RETURN 

4180 PAPER 2: INK 7: PRINT AT 16 
,14;"O LET k%=" LET j$=" 

SE LE ACABO LA PISTA": GO TO 
4250 

4190 LET SE ESTRELLO POR IR 

INCLINADO": LET k*«" A 

BAJA ALTURA": GO TO 4250 
4200 IF v=Q THEN GO TO 4220 
4210 RETURN 


4220 IF 1p >vr THEN GÜ Tü 4240 
4230 LET k*- w LET j*«"ENHORAB 
UENA . LO HA CONSEGUIDO": 60 TO 
4250 

4240 LET k*-" EN LA PIST 

A": LET j*-" HA FRENADO DEHASIAD 
D DEPRISA" 

4250 PAPER ó: INK O: PRINT AT O, 
1;j*¡AT 1,lfk* 

4260 IF c+=l THEN GO TO 4290 
4270 FOR w=l TO 400: NEXT w 
4280 LET c-f = ls LET k$=" 

ÍS/N) "; LET j%= 

"Desea intentar otro aterrizaje" 
: GO TQ 4250 

4290 LET a*=IIMKEY*: IF a*= ,, s H TH 
EN GO TO 2000 

4300 IF a$“"n" THEN 60 TO 4340 
4310 GO TO 4290 
4330 RETURN 
4340 STOP 

4350 BEEP .25,-10: BEEP .25,-10 
4360 RETURN 


SUSCRIBASE A 

lodospectrun 

<12 NUMEROS) 


TARIFA DE PRECIOS DE SUSCRIPCION 



CORREO 

ORDINARIO 

CORREO 

CERTIFICADO 

CORREO 

AEREO 

CORREO 

AEREO^CERTIF 


PIAS 

$ 

PT AS 

$ 

PT AS. 

$ 

PIAS. 

$ 

ESPAÑA . 

0JROPA. MARRUECOS. TUNEZ, 

3.000 

21 

3.273 

23 

3.055 

22 

3.333 

24 

TURQUIA ARGELIA Y CHIPRE . 
COSTA RICA, CUBA, CHILE PA¬ 

3.456 

25 

4.272 

31 

3.600 

26 

4.418 

31 

RAGUAY Y REP DOMINICANA. 

3.396 

24 

4.212 

30 

4.164 

30 

4.980 

36 

GlBRALTAR Y PORTUGAL . 

FILIPINAS . 

RESTO DEL MUNDO. 

3.264 

23 

4.080 

29 

3.149 

22 

3.965 

28 

3.264 

23 

3.540 

25 

3.775 

27 

4.050 

29 

3.456 

25 

4.272 

31 

4.224 

30 

5.040 

36 
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Recorte y envíe este cupón a: MO S pCCtfUII 
El importe lo abonaré: POR CHEQUE □ CONTRA REEMBOLSO □ 

CON TARJETA DE CREDITO □ American Express □ Visa □ Interbank □ 


Numero de mi Tarjeta 

NOMBRE __ 

DIRECCION 
CIUDAD ___ 
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En este mes son multitud a qui¬ 
nes “no les salen las cuentas”. Para 
eso el Spectrum no tiene ninguna 
solución, pero con ayuda de estos 
programas, podrá realizar sus 
cuentas en números romanos. Es¬ 
coja: ¿Pascal o Forth? 

El listado 1 ha sido realizado en 
Pascal, gracias al compilador 
HYPS. 

Se declara un tipo T que será 

PROGRAMA 1 M 


una matriz de 16 elementos donde 
se guardan los caracteres que se 
van convirtiendo. Las variables del 
programa son NUM (el número 
que se va a transformar), I (un con¬ 
tador para movernos por la ma¬ 
triz), y ROMANO que será el tipo 
T previamente declarado. 

En las líneas 40 a 70 se inicializa 
a blancos la matriz donde vamos a 
guardar los caracteres romanos. El 


programa principal (restantes lí¬ 
neas) el algoritmo consiste en ir 
comparando el número con diver¬ 
sas cantidades, primero con 1.000, 
900, 500, etc. hasta 1. Cuando el 
número es mayor que el que se 
compara se le asigna a la matriz el 
carácter romano que corresponde 
y se le resta el numero con el que 
se ha comparado. 

Hay dos clases de bucles: a) 
cuando se puedan poner 3 caracte¬ 
res iguales tales como 3M, 3C, 3X 
o 31, se utiliza el bucle WHILE (lí¬ 
neas 115-140). b) Si sólo se puede 
poner un carácter, caso de la D, L 
o V, se utiliza un bucle IF ya que 
sólo se pasa una vez por él (líneas 
180-195). En los casos tales como 
900 o 400 en los que no se pueden 
escribir 4 caracteres iguales, habrá 
que asignar a la matriz 2 caracteres 
en el mismo bucle, y avanzar el 
contador el doble (líneas 145-175). 

El listado 2 tiene análogos resul¬ 
tados, con la diferencia de que está 
realizado en Forth. 

Programa en Pascal: José Ramón 
Programa en Forth: Alfonso Martín 



x m n=xv7D xxv 

XKPMTrrvCI 

XXXHEfTm 

xij borwrvi .rwmi 

L DIrt*(UXXY,IV) 

LX> LGTVa)--tcaavi 


jáiS 10 
8013 16 

6013 SO 
AR; 

3016 26 

3021 30 

3021 36 

S0S1 4.0 
UAR ROMANOiT ) 


PR0GRAM 
TYPE 

T*ARRAY ti 


ROMANOS i 


163 0F CM 


UAR 

NUM.I:INTEGER; 
ROMANO:T; 

PRüCEDURE INICXALIZAR( 


3024 

9024 

3024. 

B03C 

805F 

3094. 

6090 

6099 

809F 

3066 

B0R5 

BOAS 

EDIDQ 

B0D6 

TELN < 

NDE ' ) 

6111 

6117 

3120 

3139 

3139 

8156 

3133 

616C 

S13F 

3165 


4.5 UAR 

SO J;INTEGER; 

95 BEGIN 

60 FOR J:«1 TO 16 DO 
65 ROMANO t J] : =' ' 

70 END; 

76 BEGINítPPt) 

60 REAO (NUM); 

85 I:«i; 

87 URITE tCHR(16)1 ; 

90 URITELN; 

95 UIRITELN ( ' EL NUMERO P 
ES , ' , NUM);URITELN; 

100 XF NUM>4000 TMEN 


EL NUMERO ES OEMASXRDÜ 


URI 

GRA 


105 ELSE 6EGIN 

110 XNXCIRLIZAR(ROMANO) ; 

115 UMXLE NUM>«1000 DO 

120 BEGIN 

125 ROMANO tlJ : ■ ' M ' ¡ 

130 NUM:=NUM-100O; 

135 I:=1+1) 

140 end; 

146 IF NUM > *90® TMEN 

150 BEGIN 


6165 

155 

ROMANO til : *’ C' ; 

S1A2 

150 

ROMANO CI + 13 : *'M-) 

6100 

165 

X:=i+2; 

BIOS 

170 

NUM:«NUM-900 

SIDO 

175 

END; 

B1D7 

GXN 

160 

XF NUM>*500 TMEN BE 

61ED 

165 

ROMANO til : ■ ' D ' ; 

620 A 

190 

NUM:oNUM-SOO;1:*1+1 

6221 

195 

END; 

6220 

200 

XF NUM>*400 TMEN 

6236 

205 

BEGIN 

6236 

210 

ROMANO til : *'C' ; 
ROMANO tl + l] : ■'D' ; 

6253 

215 

6271 

220 

NUM:«NUM-400; 

6260 

225 

X:*1+2 

6266 

230 

END, 

6268 

235 

UHXLE NUM>*100 DO 

B2A1 

240 

BEGIN 

62A1 

245 

ROMANO til : *'C' ; 

626E 

250 

NUM:*NUM-100; 

B2CD 

265 

I:*1+1 

6205 

260 

END; 

6207 

265 

IF NUM>*90 TMEN 

62E0 

270 

BEGIN 

B2ED 

275 

ROMANO til : X' ; 
ROMANO CI + 13 : »'C'.; 

830 A 

230 

B326 

265 

I:=1+2; 

6330 

290 

NUM:*NUM-90 

6338 

296 

END; 

633F 

300 

IF NUM>=50 TMEN 

6355 

306 

BEGIN 

6355 

310 

ROMANO ti] ; *'L' i 

6372 

315 

NUM:«NUM-50; 

6331 

320 

I:=1+1 


























3389 

325 

3338 

330 

639E 

335 

839E 

340 

6366 

345 

8309 

350 

63E8 

355 

83F0 

360 

S3F0 

366 

8409 

370 

8409 

375 

3426 

360 

8435 

385 

843D 

390 

B43F 

395 

8451 

400 

8451 

405 

B46E 

410 

B48C 

415 

B49B 

420 

B4A3 

425 

B4A3 

430 

8489 

435 

6469 

440 

B4D6 

445 

B4E5 

450 

B4ED 

455 

B4EC 

460 

B4FE 

465 

B4FE 

470 

8516 

475 

B539 

430 

B543 

485 

8546 

490 

3546 

495 

8564 

500 

8564 

505 


END; 

ir NUM > *40 THEN 
BEOIN 

ROMANO £13 : *'X' ; 
ROMANO Cl+13 : *'L' i 
NUM:=NUM-40; 

I:= 1+2 

END; 

UHILE NUM>*10 DO 
BEOIN 

ROMANO [13 : *= J X' ¡ 
NUM:»NUM-10; 

I:=1+1 
END; 

IF NUM*9 TMEN 
BEGIN 

ROMANO CI3 : I' ; 

ROMANO CI + ll : *' X' i 
NUM:=NUM-9i 
I:= 1+2 

end; 

IF NUM > =5 THEN 
BEOIN 

ROMANO CU : *'U' ; 
NUM:=NUM-S; 

I:=1+1 
END; 

IF NUM*4 THEN 
BEGIN 

ROMANO CI3 : = I > 
ROMANO CI + 13 : ='U' ¡ 
NUM : =NUM-4; 

I:=1+2 

END, 

UHILE NUM > ®1 DO 

BEGIN 

ROMANO C ID : = ' I' i 



SSSS 515 I: *1 + 1 

B590 520 ENDj 

5592 525 URITELNt'LH UUNDERs 

ION A NUMEROS ROMANOS ES:'),URIT 
ELN; „ 

6506 500 FÜR I:=1 TO ib Ou 

B5E0 535 URITE(ROMANO LID í 

BSFF S40 END 
6602 545 END * 

End Addrass 8604 



Salida por pantalla del programa en Pascal. 


PROGRAMA 2 


- V 0 UA *?!'" 1 ^ : 

* v f. \t u u r M n M | | ii V n n i > 
m 

t I h fPl!T RA* ► >- r> rvprrT 0 r^rv 
íH|!Wpp»1 f-p^P 

. n rr n # ,n ^ hf f ¡|> C|j*fc i -q t» 

ni? r 1 H * i 

i FflR rp ^ fn|, : ir Fl t-c 

yiVR hF >|? V r ’ 1 0 I’"- ■ 

. fi 0 p._N 71 |, I ¿i, Vi na p I - ¿ 

HO 1 ; 

: VflRP 5 "- ’J 1 T í F i ¿7 o i g. p 

‘10 1 í 

i ffofle fi 7 u 1 *.a rf > p 1 r # 

HC 1 : 

¡ NÍIM* U t EMT* * # EH!T J 
r MOF 1 NO P '■ ir ' v eL^E : ,r 
f 0 00 L p # EMIT LOOP i 

¡ NÜ*í Ní> í> 0 - IF FLFF HW TVE 
N = 

. trnpi m p *;A p c _ r i r p 


0. pn n # <TMtT tOOP ; 
í 0 E^I T P 0 EMI T í 

. >;ppc arr p a - r r *;np<? FE M0Í? 

f T'IPVI , 

■ *í nb *» ^ @ f > Z c NOIÍF EL5E M p 

CU! IT TUty 

. unp un 0 ■ l tc jjA 0 “ EL SE 

tu cu; . 

, MrtpC.W nrr i: n □ r rncr - -vrp f jq 

0 1 I MA6 É 

? til" n e -i non ^ m r F Pe r|_cr n c 

D-ty’cfp un o,"iM tu--\| nr 

. t i í PAerr ? fr,ri.é[¡ n j m t d p 
niir’pr n irn ’ ■ r o *yftri- r - T f ' 

TH^ 1 - 

. I tctwiim r n - n ■, r> r P «r'- 0 ' ’ ¡ 

^pn^frr t r i ij n am f f i nn -■ 

: P!f|rt7 tffv fr - *r I ■■tí*-i|iv -PCI- ’ 

V*’ T AFN" n P - 

' M» t pM< . I < A’lTCPTCC '7- 

D Kirv tKW n, I.ip-n I * 11 rr 

F 0 TN’'’ : 


O K 

NK 0üIER£5 iNTftgOÜCIR NO« LN) O 
UER LISTAtU 
INTRODUCE EL NO, 

12 XII 

ük 

Nft OUIERES INTRODUCIR NO a (Ni O 
UER LISTA(L) 

INTRODUCÉ EL Nü. 

CD 

O *. 

Nft CUIERES INTRODUCIR NÜ, tNi Q 
UER LISTA(LJ 
INTRODUCÉ EL NO. 

777 DCCLXXUII 

OK 

NR QUIERES INTRODUCIR NO,iN) O 
UER LISTA ÍL] 

INTRODUCE EL NO i 

3SS DCCOLXXXUIII 

O ft 

a i EN IT 


Salida poT pantalla deJ programa en Forth. 



\ sorpresa/ 

íH£ fM /?E6AMPo 




GOSANEZ 














































Si no teme ser derrotado por una máquina, le pro¬ 
ponemos una lucha “inteligente” contra su Spec- 
trum. Para ganar a su oponente, tendrá que colocar 
sus fichas en el extremo del tablero en forma de trián¬ 
gulo, antes de que el haga lo propio en el otro extre¬ 
mo. Se avanza en diagonal, siempre hacia adelante, y 
una sola casilla, a excepción de que delante exista 
una ficha y que la posición siguiente esté libre. Si al¬ 
guno de los dos jugadores no puede mover, se produ¬ 
cen tablas. {La indicación de tablas sólo se da cuan¬ 
do el ordenador queda bloqueado). Las instrucciones 
de manejo se dictan claramente en pantalla. 

Un consejo final: no se desespere si le resulta difícil 
ganar y fíjese cómo actúa su oponente. 


Autor: Gregorio Forrero 


16 K 



VARIABLES UTILIZADAS 


x(6), y(6): Posiciones de las fichas del Spec- 
trum. 

a(6), b(6): Posiciones de las fichas del jugador. 
p(6,2): Almacena la prioridad de movimiento 
de las fichas del Spectrum en las dos direcciones, 
pu: Puntos jugador, 
pus: Puntos Spectrum. 
ink: Color fichas jugador, 
inks: Color fichas Spectrum. 

Tur: Indica quién empieza. 
a$: Nombre jugador. En la línea 1306, a$ = a 
“s”o“n”. 

fi: Fita de la ficha del jugador a mover, 
co: Columna de la ficha del jugador a mover, 
mov: Indica la dirección del avance y si hay sal¬ 
to. 

sal: Indica la dirección del salto, 
ba, bb: Posición a la que puede saltar el juga¬ 
dor, y que el Spectrum debe bloquear. 


10 CLS : REM DAMAS CHINAS 
Gregorio Perrero 1964 
20 GQ TO 9000 

SO INPUT "Di me tu nombre”;a* 

60 DIM x(ó>: DIM yíó): DIM a<6 
): DIM b(6): DIM p(6,2>¡ LET pu= 
O: LET pus=0 

70 RESTÜRE 90: FGR *f-l TG 6 
SO READ >;,y,a,b¡ LET x (f )=x: L 
ET y C -f > =y; LET a<f>=a: LET b<-f) = 
b: NEXT i 

90 DATA 0,16,20.16,1,15,19.15, 
1,17,19,17,2,14,19,14,2,16,18,16 


,2,18,18,18 

100 INPUT “Que color eliges? (1 
-ó) 11 ; ink 

110 IF ink<1 OR ink>6 THEN GG 
TG 100 

120 INPUT "Que color para mi? ( 


1-6) " 

; inks 


130 

IF inks<l OR inks>6 OR 

inks 

«ink 

THEN 60 TO 120 


140 

INPUT "Quien empieza? 

(Yo=l 

: T u=2 

)tur 


150 

IF tur<1 OR tur>2 THEN 

GO 


TO 140 






















r 


160 LET tur=INT <tur)*100G 
170 REM Di bu i a tablera 
180 INK 0: PAPER 0: BÜRDER 0: C 
LS 

190 PRINT PAPER 7:AT 0,16;" "; 
AT 20,16:" " 

200 FOR n=1 TO 19 5TEP 2 
210 PRINT PAPER 7;AT n,15;" "; 
AT n, 17; " 41 

220 IF n=l9 THEN 60 TO 240 
230 PRINT PAPER 7;AT n+1,14;" 

11 ; AT n + 1,16;” " ; AT n+1,18;" 11 
240 NEXT n 

245 FOR n=0 TO 20: PRINT AT n,1 
2; PAPER O; INK 7;n: NEXT n 
248 FOR a—O Tü 4: PRINT AT 21,a 
+ 14; PAPER 0; INK 7; a: NEXT a 
250 PRINT AT 0,0; INK inks;"ZX 
SPECTRUM" 

260 PRINT AT 0,32-LEN a$; INK i 
nk; a$ 

270 FOR n=l TO 6: PRINT AT x(n) 

,y ín); PAPER 7; INK inks;" •" ; AT 
a(n>,b<n); INK ink; 11 •" : NEXT n 
300 60 TO tur 
1000 REN Juega Spectrum 
1010 FOR n = l TO 6 

1020 IF ATTR <x (n)+1,y<n>-1)*0 T 

HEN LET p (n , 1 >=0 

1025 IF ATTR (x<n>+1,y(n)-1)-56 

THEN LET p ín,i ) = 1 

1030 IF ATTR (x(n)+1,yín)~1)=56+ 

inks OR ATTR <xín>+1,y(n)-1)=56+ 

ink THEN LET pín,l>»2 

1040 IF ATTR (x(n ) +1,yín)+1)=0 T 

HEN LET p <n,2)=0 

1050 IF ATTR <xín)+1,y(n)+1>“56 

THEN LET pín,2)=l 

1060 IF ATTR (xín>+1,y(n>+1)=56+ 

inks OR ATTR (x(n>+1,yín)+l>=56+ 

ink THEN LET p(n,2>=2 

1065 IF pin, 1)=2 AND ATTR <xín> + 

2,y(n>-2> =56 AND pín,2>=2 AND AT 

TR íx(n)+2,y(n)+2)=56 THEN LET 

i=INT (RND*2)-2: IF i=-l THEN L 

ET i=2; 60 TO 3000 

1070 IF p (n, 1)=2 AND ATTR íx(n> + 

2,y(n> ~2> =56 THEN LET i=~2: 60 

TO 3000 

1080 IF p ín,2)=2 AND ATTR <xín) + 
2,yin)+2)=56 THEN LET i=2: GO T 
O 3000 
1090 NEXT n 


rf(sq 


roínos 


1100 FOR n=l TO 6 
1110 IF ÍATTR (a ín > — 1, fc¡ (n)-1 > =56 
+ inks OR ATTR <aín >- 1,b<n)-1)=56 
+ink) AND ATTR ía(n>-2,b<n>-2)=5 
6 THEN LET i=-2: 60 TO 4000 
1120 IF {ATTR (a (n) -1, b (n) +1)=56 
+inks ÜR ATTR (a(n)~1, b ín)+1)=56 
+ink> AND ATTR <a ín> ~2, b ín>+2) =5 
6 THEN LET i=2: 60 TO 4000 
1130 NEXT n 
1140 FOR n=1 ID 6 
1145 IF ATTR (x(n)+1,y(n)-1>=56 
AND ATTR (x<n)+i,y(n)+1)=56 THEN 
LET i«INT (RND*2>-1: IF i=0 TH 
EN LET i=1: 60 TO 5000 
1150 IF ATTR Cx < n)+1,y(n >-1)=5 6 
THEN LET i=-l: 60 TÜ 5000 
1160 IF ATTR íxín>+1,y(n)+1)=56 
THEN LET i=l: GO TO 5000 
1170 NEXT n 

1180 PRINT AT 10,13; INK 7;"TABL 
AS" 

1300 INPUT "Otra partidita? (s/n 
) " ; aí 

1310 IF a* <i)=“s" OR aSCD^'S" T 
HEN CL3 : GO TO 50 
1320 STOP 

2000 REM Juega Humano 
2010 INPUT "Fila de -ficha a move 
r " ;fi: INPUT "Columna de -ficha 
a mover ";co: LET co=co+14 
2020 FOR n=l TÜ 6 

2030 IF a <n> =fi AND b(n)=co THEN 
GO TO 2050 
2040 NEXT n 

2045 PRINT AT 10,0; INK 7;"NO HA 
Y FICHA": PAUSE 50: PRINT AT 10, 
O;" 60 TO 2010 

2050 INPUT "Hovimienta?0—IZQ;1-S 
ALTO; 2-DER 11 : mov 

2055 IF mov’l THEN GO TO 2200 

2060 IF movOO AND mov< >2 THEN 

60 TQ 2050 

2070 LET mav=mov-i 

2080 IF ATTR (aín)-l,bín)+mov)=5 

6 THEN 60 TO 2090 

2085 PRINT AT 13,0; INK 7;"H0VIH 

IENTG";AT 15,0; INK 7;"NO VALIDO 

"; PAUSE 50: PRINT AT 13,0;" 

" ; AT 15,0; " "¡ GO 

TQ 2050 

2090 LET a ín)=a <n>-1: LET bín>=b 
ín)+mov 


I 


I 


I 








2100 REM Impresión 



, BEEP .2,10: BEEP .2,13 

2320 IF &{n)<2 THEN LET pu=pu+2 


2105 PRINT PAPER 7; FLASH 1; IN 
K ink;AT a<rt)+1, b (n)-moví " : BE 

EP .2,10: BEEP .2,15: FLASH O 
2110 PRINT PAPER 7sAT aín)+l,to( 
n)— mov; 11 "; AT á(n) ,b(n) ; INK ink 
í " • ": BEEP .2,10: BEEP .2, 15 
2120 IF a(n)<3 THEN LET pu-pu+1 
2130 IF pu=10 THEN 60 TO 2500 
2140 60 TO 10Ó0 
2200 REM Salto 

2210 INPUT «Salto? <0-IZQ¡4-DER) 

" ?sal 

2215 IF salOO AND sal<>4 THEN 

GO TD 2210 

2220 LET sal=sal-2 

2230 IF ATTR (a(n>-1,b<n)+SGN sa 

1)056 AND ATTR <• (n)-2, b Cn)+sal 

)=5Ó THEN GG TG 2300 

2240 PRINT AT 13,0;"MOVIMIENTO": 

AT 15,0;"NO VALIDO" 

2250 PAUSE 50: PRINT AT 13,Os" 

";AT 15,0;" 

2260 GO TO 2050 

2300 LET a(n> =a(n)-2: LET b(n)*b 
(ni +sal 

2305 PRINT PAPER 7; FLASH 1;AT 
a^tn) +2, b (n) —sal; INK ink;" • " : BE 
EP .2,10: BEEP .2,15; FLASH O 
2310 PRINT PAPER 7;AT a(n)+2,b< 
n)-sal;“ ";AT a(n),b(n>; INK ink 


2325 IF a(n>=2 THEN LET pu“pu+l 

2330 IF pu-10 THEN GO TO 2500 

2340 60 TO 1000 

2500 REM Victoria juagador 

2510 FLASH 1¡ INK 7; PRINT AT 10 

,20; INVERSE 1;"HAS GANADO" 

2530 FOR b=ü Tü 255 

2540 OUT 254.be OUT 254,7 

2550 NEXT b 

2560 FLASH O 

2570 GO TO 1300 

3000 REM Salto 

3010 LET x(n)=xín)+2: LET yín)=y 
(n) +i 

3015 PRINT PAPER 7; FLASH 1; IN 
K inkssAT x<n >-2, y ín >-!*"•": BEE 
P .2,20: BEEP .2,25: FLASH O 
3020 PRINT PAPER 7:AT x(n)-2,y< 
n ) -i ; 11 " ; AT x(n),y<n>; INK inks; 

BEEP .2,20: BEEP .2,25 
3030 IF x<n)>18 THEN LET pus—pu 
s+2 

3035 IF x(n)—18 THEN LET pus-pu 
s+1 

3040 IF pus®10 THEN 60 TO 3500 
3050 GO TO 2000 
3500 REM Victoria Ordenador 
3510 FLASH 1: INK 7: PRINT AT 10 
,2; INVERSE i; "HE GANADO" 




¿Por qué correr el riesgo de que 
los curiosos lean sus cartas? Antes 
de que deje volar su imaginación a 
la películas de espionaje, veamos 
qué puede hacer este programa y 
decida después su utilización. 

Este programa le permitirá codi¬ 
ficar un mensaje basándose en una 
clave determinada. El programa se 
basa simplemente en una tabla 
compuesta por caracteres (en prin¬ 
cipio se han incluido desde el 
CHRS 32 hasta el CHR$ 127, in¬ 
clusive). Gracias a esta tabla y ba¬ 


sándonos en la clave podrá codifi¬ 
car un mensaje, y también poste¬ 
riormente partiendo del código 
creado, reconstruirlo. La tabla ini¬ 
cial se crea colocando la lista de 
caracteres de la variable 1$ como 
referencia de fila y columna, la pri¬ 
mera línea es la propia lista de ca¬ 
racteres en el orden en que está la 
variable 1S. La siguiente línea se 
obtiene cambiando de lugar los ca¬ 
racteres, el último carácter de ía lí¬ 
nea anterior pasa a ser el primero 
de esta línea y así sucesivamente 
hasta completar la tabla. 















rroqrOMis 


3520 FGR b=255 TO O STEP -1 
3530 OUT 254,b: OUT 254.7 
3540 NEXT b 

3550 FLASH O: GO TO 1300 
4000 REM Bloqueo 

4010 LET ba=aín>-2: LET bb=b(n)+ 
i 

4020 FOR f*1 TG 6 

4030 IF x <f) =ba-l AND y(-f)=bb-l 

THEN Gü TO 4060 

4035 IF x<f>«=ba-l AND y(f>=bb+l 

THEN GO TO 4080 

4040 NEXT f 

4050 GO TO 1130 

4060 LET x í-f )*=x (f >+l: LET y(f)=y 
(•f > + 1 

4065 PRINT PAPER 7; FLASH 1; IN 
K i nks; AT x<F)-1,y(f)-1; " •" ; BEE 
P .2,20: BEEP .2,25: FLASH O 
4070 PRINT PAPER 7;AT x( 4 )-1,y( 
"i GO Tü 4100 

4080 LET x(í)=x(f)+l: LET y(f)=y 
<-f )-l 

4085 PRINT PAPER 7; FLASH 1; IN 
K inks;AT x<f)-1,y (i > + 1; " • " : BEE 
P .2,20: BEEP .2.25: FLASH O 
4090 PRINT PAPER 7;AT xíf)-l,y< 
■f) + 1 5 '* " 

4100 PRINT INK inksjAT xíf),y<f 
BEEP .2,20: BEEP .2,25 
4í05 IF x(f)>17 THEN LET pus-pu 


s+1 

4108 IF pus=10 THEN GO TO 3500 
5000 REM liov i m i en t o 
5005 PRINT AT x(n),ytn)f FLASH 1 
: INK inks;" •" : BEEP .2,20: BEEP 
.2.25: FLASH O 

5010 PRINT AT x<n),yín>; PAPER 7 

. « II 

5020 LET x (n) =:< (n) +1: LET y(n)=v 

(n) + i 

5030 PRINT AT ,:ín>,y<n>; PAPER 7 
í INK i nks; " • " : BEEP .2,20: BEEP 
.2,25 

5035 IF x(n)>17 THEN LET pus«pu 
s+1 

5040 IF pus=10 THEN 60 TO 3500 
5050 GO TO 2000 

9000 RESTORE 9030: FOR b=0 TQ 7 
9010 READ c: POKE USR CHR$ 144+b 

pC 

9020 NEXT b 

9030 DATA 0,60,126,126,126,126,6 

0,0 

9040 60 TO 50 


NOTAS GRAFICAS 

ABC... 

• £5 O . . . 


Los menús que incluye el pro- 
grama permitirán; grabar el código 
o el mensaje en una cinta, cargar 
uno previamente grabado, sacarlo 
por impresora, operar con un texto 
cargado en la memoria o introdu¬ 
cirlo por el teclado. También in¬ 
tercambiar el texto residente en 
memoria, por su correspondiente 
código o su mensaje. 

Una vez creada la tabla, basán¬ 
dose en los caracteres de la clave 
podrá crear el código,. Asi. si la 
clave es "PAN" y quiere codificar 
la palabra “COSA" (el resultado 
debería ser “s/q”) el proceso es el 
siguiente: Buscar en la tabla la lí¬ 
nea correspondiente a la "P” (pri¬ 
mer carácter de la clave), y la co¬ 
lumna correspondiente al “C” 


(primer carácter deí mensaje); la 
intersección en la tabla en este 
caso de la "s” será el primer carác¬ 
ter de código. Y así el proceso se 
repite hasta el final del texto; si 
como es normal los caracteres de 
la clave se agotan antes que los del 
texto, se comienza otra vez por el 
primero de la clave. Así, para po¬ 
der codificar la “A” del mensaje 
comenzamos nuevamente la clave, 
siendo **P” el carácter, y así todas 
las veces necesarias. 

El método para traducir es el in¬ 
verso; basándonos también en la 
clave primitiva (con la que se codi¬ 
ficó el mensaje) y siguiendo con 
nuestro ejemplo, para traducir la 
“s” buscaríamos la línea de "P” 
(primer carácter de la clave), y 


ahora buscaríamos dentro de esa 
linea el carácter, y traducir “s” (si 
la tabla es correcta solo habrá una 
“s”); una vez encontrado vemos en 
qué columna está y la letra que 
marca esa columna sería la traduc¬ 
ción de “s", en este caso la "C". 
Como antes, sí se termina la clave 
antes que el código volveremos al 
primer carácter de la clave. 

Un mismo mensaje se codificará 
distinto según la clave. También 
podemos someter a un mensaje a 
un cierto número de codificacio¬ 
nes repetidas. Para recuperar el 
texto primero, debemos someter al 
último código al mismo número de 
traducciones también continua¬ 


das, esto se consigue gracias a la 
utilización adecuada de la opción 















V, 
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,k S” del primer menú (intercambio 
de entrada por salida). 

Para mayores complicaciones 
en el código, se puede cambiar el 
orden de los caracteres en la tabla 
(con lo que se crea una tabla dis¬ 
tinta): línea 180, variable 1$. 
Siempre que no haya ninguno re¬ 
petido. ni falte ninguno de los que 
vamos a utilizar. Aunque es acon¬ 
sejable que sean correlativos (sólo 
letras mayúsculas, sólo números...) 
ya que. si no, se complica mucho 
el resto del programa. 

Si hace esto deberá retocar las lí¬ 
neas 110, 210, 220, 490. 500,740, 
750. 760: adecuando los valores de 


la longitud de 1$. y del primer ca¬ 
rácter de la lista para tomarlo 
como referencia (inicialmente la 
longitud es de 96 caracteres, y el 
primer carácter es el CHR$ 32, 
que corresponde al espacio; por 
ésto se suma 31 al valor de la posi¬ 
ción en 1S para hallar el código ab¬ 
soluto correspondiente en ei ma¬ 
nual de Sinclair, apéndice A). 

Por último, si reduce el número 
de caracteres ahorrara memoria, 
siendo incluso posible correr en la 
versión de lóK, y también se redu¬ 
ciría el tiempo de ejecución. 

A Mor: José Félix AIvarez 16 K 



10 REM 

20 REM *********************** 
30 REM JÜSE FELIX ALVARE2 
40 REM CODIGOS 14/10/1984 
50 REM *********************** 
'60 REM 

70 REM *********************** 
80 REM Dimensióna tabla de ca 


90 
100 
110 
120 
130 
140 
150 

160 

170 

180 


REM 

REM 

DIM 

LET 

REM 

REM 

REM 

REM 

REM 

LET 


racteres. Inicialisa. 
texto en memoria (texme 
mo) . 

?{í )|í 3|í íflC 

t* (96,96) 
t s:;m«frio=0 

^ -^r 

Define car aderes; 1 $. 

Y crea hablaste. 

* ÜL (A, 1 i«L d- Uli tk,- Ar *iir lAj "Jr J» J | • üj r t|« fc.- ü» i i i L ■Ji -lj 

l X í ‘Tr* *• ,Í T ' 1 ■T' d 1 vn •‘T 1 j T’ ^p« 


1$=" !"+CHE1> 34+" *■/.&'< 

)* + ,/Oi23456789::< = >?«ABCDEFGH 
I JKLMNOPGRSTUVWXYZ í \] ■•■_#abcdef gh 
i j !•: 1 mnopqr stuvwxyz i 1 > " 


190 LET t$<l)=l$ 

200 F'RINT AT 12,4; INVERSE 1; F 
LASH 1;"CREANDO TABLA DE CARACTE 
RES" 

210 FOR N=2 TG 96 

220 LET CN) =tiMN-l, 96) +t$ (N-i 

) 

230 NEXT N 
240 CLS 
250 REM 


260 REM *********************** 
270 REM Introduce clave y mués 
tra el primer menú, 

280 REM *********************** 

290 REM 

300 INFUT " Introduce la C 

LAVE" 5 ? ? J 7 ' ' LINE c$¡ IF c $= 

"" THEN 60 TO 300 
310 INPUT “ 1 Codificar mens 

aje" íf,í " 2 Traducir codiga"’ 
3 Cargar teda desde cin 
ta" J ’ ” " 4 Borrar el texto en 

ínemoria"' ' ’ ' " 5 Cambia tex.s 

memo. X salida"’ ’ ' 7 11 " (elige opci 
on)", LINE m$ 

320 IF m*="2" AND t ex memo* 1 THE 
N GG TG 700 

330 IF "2" THEN 60 TG 690 
340 IF m$="3 r THEN GG SUB 1140 
: F’RINT AT 10,6; FLASH 1; "CARGAN 
DO DEL CASSETTE";AT 13,15-LEN (n 
*>/2; FLASH Ojn*: LOAD ni DATA e 
í()s LET texmemo=l; CLS : GD TO 
310 


350 IF m$=“4" THEN LET texmemo 
=0: 60 TO 310 

360 IF m$="5" THEN LET texmemo 
=1: LET e$=s$ 

370 IF míO'T' THEN GG TO 310 
380 IF texmemo*1 THEN GG TG 45 

O 

390 REM 


400 REM 
410 REM 




*********************** 
Introduce mensaje y 
lo codifica. 


61 






















p.v.p. 96.000 Pt3 


*0 


*00 


ESPECIFICAMENTE 
PARA QL 


ESPECIFICACIONES 

MODELO 
CUB U51 DQ3 
U QL WMTOR 
Entrada RGB- i 
Resolución P X£LS¡ 

653 H v 585 V 
DO^ PITCr 0 43 ivn 
Sano.-, din 18 V.H? 

Esp e c f ca men te dseña o o 
para el QL que 
apro\ ectu so facilidad 
¿.nica de S5 colorínas 


Mod. 1451 DQ3 


U31 MZ 4 

74*500 Pías, 




ve : -■ = . r 




































XX 


rsqrawas 


Sí 


420 REM i********************** 

430 REM 

440 INF'UT " Introduce el M 

ENSftJE" 7 7 ’ 7 7 7 7 7 * 7 7 LINE sí: 1F e 
í=" M THEN 60 TO 440 
450 DIM sí(LEN eí )i LEI 2 $=""* 
LEI chrclave=l 

460 PRINT AT 12,7; FLASH 1;"CO 
DIFICANDO MENSAJE" 

470 FOR N=1 TO LEN eí 
480 LET yí~cí(chrciave! 

490 LET +ila=CODE yí~31 

500 LET columna-CODE eí(N)-31 

51ü LET xí=tí (-Fi I a, columna) 

520 LET 2Í=ZÍ+x$ 

530 IF chrclave=LEN c$ THEN LE 
T chrclave=ls SD TO 550 
540 LET chrclave=chrclave+l 
550 NEXT N 
560 LET s $=:% 

570 REM 

580 FEM *********************** 
590 REM Imprime codifi caeion. 
600 REM *********************** 
610 REM 

620 CLS : PRINT "MENSAJE(entrad 
a> : " ; eí 7 7 "CODIGO (sal i da) : 11 ; sí 
630 GO TO 940 
640 REM 

650 REM *********************** 
660 REM Introduce código y lo 
traduce. 

670 REM *********************** 
680 REM 

690 INF'UT " Introduce el 

CODIGO"*' 7 7 7 7 7 7 7 7 7 7 LINE eí: IF e 
THEN GÜ TO 690 
700 DIM sí íLEN eí) : LET z : 
LET chrclave=l 

710 PRINT AT i2,7; FLASH 1;"TRA 
DUCION DE CODIGO" 

720 FOF: N= .1 TO LEN eí 
730 LET yí=cí<ehreIave) 

740 LET tí Ia“CODE yí~31 
750 FOR J=1 TO 96 
760 IF tí(-F i la,J>= e $ÍN) THEN L 
ET yí=CHRí <J+31>! GG TO 780 
770 NEXT J 
780 LET zí=zí+yí 
790 IF chrclave=LEN cí THEN LE 
T chrclave=l: GO TO 810 
800 LET chrclave=chrciave+1 


810 NEXT N 
820 LET sí=zí 
330 REM 

840 REM *********************** 
850 REM Imprime traducion. 

860 REM *********************** 

870 REM 

880 CLS : PRINT "CODIGO(entrada 
)("{■*" "MENSAJE (sal i da) ;"¡s$ 

890 REM 

900 REM *********************** 
910 REM Imprime y ejecuta el 
segundo menú. 

920 REM *********************** 
930 REM 

940 PRINT #1;"Pulsa una tecla p 
ara MENU"; PAUSE Os CLS 
950 INF’UT " A Copiar el text 
o en cinta" 7 7 7 7 M B Escribir t 
exto (impresora) ! > 11 C Salí 

r del programa" 7777 " D Nueva 
clave" 7 *’ 7 7 " E Menú anterior" 7 
7 7 7 7 " (el i ge opcion)' 1 , LINE mí 
960 IF mí="C" OR m$= ,, c" THEN S 
TOP 

970 IF mí~"D" OR mí="d" THEN 
GO TO 300 

980 IF mí="B" OR mí« H b" THEN L 
PRINT sí: GO TO 950 
990 IF mí®"E" GR mí®"e" THEN G 
0 TO 310 

1000 IF mí< >" A" AND m$<>"a" THEN 
GO TO 950 
1010 REM 

1020 F;EM *********************** 
1030 REM Graba el texto. 

1040 REM *********************** 

1050 REM 

1060 GO SUB 1140: PRINT AT 10,6; 

FLASH 1;"VOLCANDO AL CASSETTE"; 
AT 13,ÍS—LEN <ní)/2; FLASH 0;ní 
1070 SAVE ní DATA sí Os 
1080 CLS ; GO Tü 950 
1090 REM 

1 i00 REM *********************** 
1110 REM Nombra el texto. 

1120 REM *********************** 

1130 REM 

1140 CLS : INPUT "Nombre del tex 
to ? LINE ní: IF ní~"" THE 

N GO TO 1140 
USO RETURN 









AJUMO AVISO 


¿tres aficionado a la programación? 
¿Dominas el código máquina? 

¿Tienes programas originales? 

¿Puedes escribir un buen luego? 
¿Quieres ganar dólares, Iteras, francos o 
pesetas desde tu casa, en tus horas libres? 

i NO TE LO PIERDAS! 

Contacta mmed«taimente con: 

CIBERCOMP. S. A. 

Tefs. (91) 200 21 00 
(91) 759 22 44 


Especialistas en software para Home Computéis, 
asociados con primeras firmas internacionales. 



• Ordenadores personales Hard y Soft. 
• Cursos de Basic. 

Oficinas RENOVACION EN MARCHA, S.A. 

cf EspronceOa 34 - 2 a jnt, - MADRlD-3 
Teléfono {31) 44 1 24 78 
Tienda REM SHOP 1 
c¡ Galilea 4 MAPRlD-15 
Telefono ¡81) 445 20 08 


1 * 


fe MULTISYSTEM, 6. A. 


BOUTIQUE INFORMATICA 

* Ordenadores Personales. 

* Micro-ordenadores de gestión 

Todas las novedades en: 

Programas. - Periféricos -libros 
(nacionales y de importación} 


Para: Spectrum - Dragón - Base 64 
Spectravideo -Oric -Commodore* etc. 

0/ San Vicente. 53 ALICANTE. Tel (965) 2T 55 66 



Copiará fus programas de: 


1) CASSETTE A MICRODRIVE 

2) MICRODRIVE A MICRODRIVE 

3) CASSETTE A CASSETTE 

4) MICRODRIVE A CASSETTE 

En Basic, C./M. o mixtos, protegidos o no, con o sin 
cabecera, hasta 48.4K de long. y de 'Tina sola vez". 

TRANS-EXPRE55 - 1.600 ptas + gastos envío. 

campumania 

Pe layo, 12 - 0&001 BARCELONA 
Tfno. 301 47 00 - Ext. 20 


HM! 

OT1 

MADRID 

(91)7339662 

p 

MOE 

or 

IUL0S 

BARCELONA 

(93)3014700 


r 




ESPECIALISTAS EN SINCLAIR 
SAQUELE RENTABILIDAD AL SPECTRUM 


PROGRAMAS EN MICRODRIVE ZX 


GESTION: 


Contabilidad (P.N.C.) 

12.000 pts 

Base de Datos 

6.000 " 

Proceso de textos (español) 

6.500 

CaJc (hoja electrónica) 

4,000 

Control stock y facturación 

8.500 

P. TECNICOS 


Agente de Bolsa 

6.500 

Mediciones y presupuestos 

24,000 


PROGRAMAS EN CASSETTES 


EDUCATIVOS: 


Geografía 1 

1.900 

Geografía II 

1.900 

Curso de Contabilidad 1 

2.200 

Curso de Contabilidad II 

2.200 

Curso de Contabilidad 119 

2,200 

Geometría y Trigonometría 

2.200 

Superdesarrollos 1X2 

3.900 

(imprime boletos con Impresora Admate) 




ORDENADORES: Spectrum, Spectrum + Spectravideo. Commodore. Orle, Katson... desde 1.239 pesetas al mes 
IMPRESORAS: Star. New Prmt, Seikosha desde 774 ptas. al mes. Monitores. Accesorios. 

MODEM TELEFONICO - AMPLIACIONES DE MEMORIA - LAPIZ OPTICO - CURRAH <S. DE VOZ) _ 

\_ ENVIOS CONTRA REEMBOLSO. GIRO O TALON CONFORMADO C/ Silva. 5-4" Tel. 242 24 71 - 28013 MADRID _ J 






































J. M PUBLICIDAD 


DE TODA CONFIANZA 



Por algo es el Servicio Oficio! IMVESTRONICA para los productos SINCLAIR 


SIN SOBRESALTOS. 

Gracias al "COSTE ESTANDAR POR REPARACION" siempre sabes, de antemano, (o que cuesta 
el reparar tu microordenador SINCLAIR, una vez caducada la garantía de tu equipo. 

Sin presupuestos previos, sin gastos adicionales, tenga lo que tenga 
tu microordenador, por mucho que sea, el coste siempre será el mismo según el siguiente cuadro: 


Además tienes la garantía 
de que tu equipo será reparado 
por expertos técnicos 
y con piezas originales SINCLAIR 



C/. Aribou, n.° 80, piso 5.° 1 , fl 
Telfs.: (93) 323 41 65 - 323 44 04 
08036 BARCELONA 

P,° de Ronda, n° 82, l.° E 
Telf.: (958) 26 15 94 
18006 GRANADA 

C/. Universidad, n.° 4 - 2.° 1 
Telf (96) 352 48 82 
46002 VALENCIA 


DELEGACIONES HISSA 


C/. San Sofero, n.° 3 C/ Avda de la Libertad, n.° 6. Bloq. I ° Entl. Izq. D. 

Telfs.: 754 31 97 - 754 32 34 Telf. (968) 23 18 34 

28037 MADRID 30009 MURCIA 


C/ 19 de Julio, n." 10-2,° local 3 C/. Hermanos del Río Rodríguez, n.“ 7 bis 

Telf. (985) 21 88 95 Telf.; (954) 36 17 08 

33002 OVIEDO 41009 SEVILLA 

Avda. de Gasteiz, n° 19 A - 1“ D C/. Travesía de Viga, n. Q 32 - 1 

Telf.; (945) 22 52 05 Telf. 1986) 37 78 87 

01008 VITORIA 6VIG0 

C/. Atares, n.° 4 - 5 ° D 
Telf (976) 22 47 09 
50003 ZARAGOZA 


HORARIO DE ATENCION AL PUBLICO: de 9 h . a 13 h. (excepto Madrid: de 8 1/2 h. o T7 1/2 h.) 

AMPLIAMOS POR UN AÑO LA GARANTIA DE TU SINCLAIR 

Si tu microordenador SINCLAIR aún está con la GARANTIA IMVESTRONICA vigente y deseas ampliada por un año más 
(a partir de la fecho de caducidad de la misma), nada más sencillo: 

HISSA te amplía la garantía por el mismo importe de lo que te costaría una reparación 
Rellena el cupón con todos los datos y envíalos, con todo lo que se te indica, a la delegación HISSA de MADRID. 

A los pocos días recibirás tu NUEVA GARANTIA. 


CUPON 


D..con domicilio en. 

calle/plaza.n.°.teléfono..D.P. 

desea amplior en UN AÑO ia garantía de su equipo SINCLAIR, cuya GARANTIA INVESTRONICA aún está vigente. 
Lo fecha de compra del microordenador íue el día.de..,.de 198. 


Para ello adjunta, o este cupón, la GARANTIA INVESTRONICA y un talón nominal a HISSA por el siguiente importe, 

que señala con uno X.__—--i 

fn 7X 81 : 13.15Q PtQ Sj|"Env¡gr e | cupón Firmado- 

O^ilUlcA^.a. 

3 srwrtrum 48K: 16.30U_^J 2 8037 












































£xclu&.ivo pana lectonea de 



lodospectrun 



Precio: 1,550 ptfti. 


Precio; 1,550 pías. 


Preclo: 1.550 ptas- 



Precio: 1.550 ptu. 



Precio; 1-550 ptas. 


Precio; 1,550 pía®. 


Recorte y envíe este cupón HOY MISMO a; INFQDIS* S*A. Bravo Murítio. 377 - 5 , °-A. 28020 MADRID 




BwU A ÁoH*lcifec fe ¿AW&tl O ¿AWttUt 
^cfe&s&h&ÁA'i' A 

ty Ubf&dt fe fitehéM ,: 

El importe to abonaré: 

POR CHEQUE O CONTRA REEMBOLSO □ CON TARfETA DE CREDITO □ 

.American Express d Visa P lnterbanlt Q Fecha de caducidad _____ ____ 

Número de mi Tarjeta l J _______i_ 

Nombre_____ 

Dirección _____ _ __ 

Ciudad __.___ D.P. __ 

Provincia ____________ 


z ¿Mj* §mÍ§a 












Cada envío Nevará 95 Ptas. en < unceplo de ^aülus, 





































































además se pretende la 
comercialización del 
producto, lo que empezó 
siendo una diversión puede 
fácilmente convertirse en 
una pesadilla. Lejos de los 
ejemplos conocidos más allá 
de nuestras fronteras, donde 
el joven programador 
confiesa con amplia sonrisa 
su rápido enriquecimiento, 
aquí tendrá que luchar por el 
reconocimiento de su 
trabajo. 

Programando 
entre amigos 



Programar, lo que se dice 
programar, lo puede hacer 
cualquiera. Hacerlo bien ya 
es un poco más difícil. Y si 


i 


U N pequeño apartamento 
céntrico en Barcelona es el 
cuartel general de este nu- 
trido grupo de jóvenes pro¬ 
gramadores. A primera vis¬ 
ta parece sólo un grupo de amigos 
que se reúnen para hablar sobre 
una pasión común. “Empezamos 
tres, haciendo programas para no¬ 
sotros. Uno dominaba el inglés, 
otro el código máquina... Ahora 
hemos crecido considerablemente 
en número, pero seguimos traba¬ 
jando un poco aislados, viéndonos 
mensualmente para comentar los 
problemas y discutir los programas 
en conjunto. Esperamos centrali¬ 
zar aquí todo el tema de máquinas 
y programas durante este año”. 

Combinando su tiempo con sus 
estudios o con el trabajo, hay veces 
en que deben quitar horas al sue¬ 
ño, especialmente durante los me¬ 
ses pesados, con motivo de las fies¬ 
tas navideñas. “Es el mayor pro¬ 
blema. Trabajamos a contraco¬ 
rriente, sacando horas de donde 
podemos. En vacaciones hemos 
llegado a trabajar trece horas dia¬ 
rias, incluidos los domingos”. Los 
más pequeños tienen alguna limi¬ 
tación. “Yo lo que me dejen, nece¬ 
sito la televisión de casa y la em¬ 
pleo siempre que mis padres no la 


ven”. Otros van más lejos: “Empe¬ 
cé mañana y tarde hasta que se re¬ 
ventó el transformador...”. Una y 
otra vez se sucedían anécdotas, 
quizá tan numerosas como sus 
propios programas. 

“El problema es encontrar un 
tema atractivo. A los que progra¬ 
mamos nos es muy difícil porque 
nos falta un poco de imaginación. 
Tenemos unos cauces muy marca¬ 
dos en cuanto a la lógica, pero la 
imaginación es algo muy distinto. 
A veces ves por dónde van los ti¬ 
ros, pero hay que hacer un cuida¬ 
doso estudio”. Una vez elegido el 
tema, se pasa al código máquina, 
pero tenemos más ilusión que me¬ 
dios. Este año esperamos contar 
con más medios, con lo que se nos 
facilitará bastante la labor. Traba¬ 
jar en código máquina es muy duro 
tal como lo venimos haciendo. A 
veces hemos dado con las rutinas 
de gráficos corriendo un programa 
que se colgaba siempre. Al final te 
dabas cuenta de que te habías olvi¬ 
dado definir una variable”. 

De lo que desde luego no se olvi¬ 
daban era del gran esfuerzo a reali¬ 
zar en la comercialización de sus 
programas. "El distribuidor prefie¬ 
re hacer el dinero fácil, buscar el 
programa que ya tiene éxito fuera 


y traerlo aquí. Lo que se debe ha¬ 
cer es buscar programadores aquí 
en España, puesto que los hay y 
muy buenos. Los de fuera tienen 
las mentes más cuadradas. Piensa 
que las rutinas de grabación rápida 
sólo existen en España. Es un error 
pensar que el programa número 1 
en Inglaterra tenga que gustar 
aquí. Una vez fuimos a unos gran¬ 
des almacenes y les enseñamos los 
cassettes y las carátulas nuevas, y 
al ver las cajas nos dijeron que era 
fabuloso. Sólo pudimos responder¬ 
les que el programa estaba dentro. 
Lo único que les interesa es la pre¬ 
sentación”. 

A pesar de las dificultades, se 
respiraba un ambiente de confian¬ 
za en el futuro. Antonio Pascual, 
en cierta medida responsable del 
grupo, comparte las relaciones pú¬ 
blicas del mismo con su trabajo en 
un banco y parece conocer bien el 
sector. “Lo que más nos preocupa 
del mercado es el abuso que se 
hace de los programadores. En el 
momento en que un programa se 
vende mínimamente, como un 
programa extranjero, la tirada mí¬ 
nima alcanza los 500 cassettes. Y 
si éstos se venden, los programado- 
res deben llevarse 200.000 pts., y 
esto ha de estar claro. El que ahora 
existan personas que paguen 
40.000 pts, por programa y hagan 
tiradas de 500 o más cassettes, es 
engañar al programador. Y el pro¬ 
gramador no es tonto. El resultado 
es un abandono de la programa¬ 
ción. Se debe ir con la verdad por 
delante y ellos han de tener un 
royalíy sobre el programa. En to¬ 
das partes está funcionando así 
menos en España. Los pocos que 
se deciden a aprovechar al progra¬ 
mador están abusando. Pero no 
sólo se abusa del programador, 
sino también del comprador. Exis¬ 
te una casa aquí en Barcelona que 
te vende un programa que no fun¬ 
ciona. Cuando vas a reclamar te 
dice que te lo cambia por otro del 
mismo precio, con lo que en reali¬ 
dad aseguran la venta. Esto es un 
fraude”. 

Quizá aquí resida el secreto de 
su éxito. Que el usuario sepa lo 
que compra y que funcione, y que 
el programador reciba lo que se 
merece por su trabajo. 
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LIBERA 

TU IMAGINACION. 


Da rienda suelta a tu fantasía 
porque las diversiones 
más emocionantes te esperan en 



BRAVO MU RULO, 2 (apare, gratuito en C/. Magallanes, 1). Te!.; 446 62 31 
DIEGO DE LEON, 25 (apare, gratuito en C/. Núñez de Balboa, 114). TeJ.: 261 88 01 MADRID 




